use strict;
my @down;
chomp (my @Servers = <DATA>);
my $Start_time = time;
foreach (@Servers) 
{
   my $res = `ping -n 1 $_`;
   if ($res =~ /reply/i)   
   {
      print "$_ : Up\n";
   }
   else
   {
      push (@down, $_." : Down");
   }
}
my $End_time = time;
print "Start : $Start_time\n";
print "End : $End_time\n";
my $lapsed = $End_time - $Start_time; 
print "\n\nLapsed Time (in Seconds) : $lapsed\n";
print "\n\n\n___________________________\n\n\n";
print "$_\n" for @down;


__DATA__
SN01BDW02a
SN01BDW03a
SN01BDW04a
SN01BDW05a
SN01BDW06a
SN01BDW07a
SN01BDW08a
SN01BDW09a
SN01BDW10a
SN01BDW11a
SN01BDW12a
SN01BDW13a
SN01BDW14a