use Net::Ping;
my $p = Net::Ping->new('icmp');
print $p->ping('localhost'); # 1