my $p = Net::Ping->new("icmp");
$p->ping("127.0.0.1");