use Net::Ping;
my $ping = new Net::Ping ("icmp");
my $PING_TIMEOUT = 2;
my $IP=$_;
     if ($ping->ping($IP, $PING_TIMEOUT))
        {
                print "Ping Succeeded \n";
        }
        else { print "Ping failed\n";}
$ping->close();