#!/usr/bin/perl
use strict;
use warnings;

my $ping = "/bin/ping";
while (<DATA>){
  chomp;
  my $ping_out = `$ping $_ 2> /dev/null`;
  chomp ($ping_out);
  if ($ping_out !~ /bytes from/) { 
    print "$_ isn't pinging\n";
}
else {
    print "$_ is up\n";
}

__DATA__
SERVER01
SERVER02



##</code><code>##

[root@stewie ~]# perl 615424.pl 
Missing right curly or square bracket at 615424.pl line 17, at end of line
syntax error at 615424.pl line 17, at EOF
Execution of 615424.pl aborted due to compilation errors.