#!/usr/local/bin/perl
@a = (<DATA>);
$s = system("$?");
foreach (@a)
{
system("/usr/sbin/ping $_");
print system("$?\n");
if ( $? != 0)
{
        print "Could not ping host.";
}
else
{
        print "Ping successful.\n";
}
}
close(DATA);
             


__DATA__
111.111.111.111
222.222.222.333
232.454.556.565