Application status :- Perl script

#!/opt/csw/bin/perl
use warnings;
use strict;
print "==============================================================================\n";
print "If you are gettting *Started in* output, the Application came up after restart.\n";
print "==============================================================================\n";

my @server = qw (indigo-app-1 indigo-app-2 indigo-app-3 indigo-app-4 indigo-app-5 indigo-app-6);

print "-------------\n";
print "Member App:\n";
print "-------------\n";

foreach (@server) {
print "$_.\n";
print `ssh $_ cat /srv/jboss/memberApp/server/log/server.log|grep "Started in"`;
}

print "-------------\n";
print "Csr App:\n";
print "-------------\n";

foreach (@server) {
print "";
print "$_.\n";
print `ssh $_ cat /srv/jboss/csrApp/server/log/server.log|grep "Started in"`;
}
print "-------------\n";
print "Email App:\n";
print "-------------\n";

foreach (@server) {
print "";
print "$_.\n";
print `ssh $_ cat /srv/jboss/emailApp/server/log/server.log|grep "Started in"`;
}
print "---Done---\n";