root@myserver# perl5
use Net::Ping;
$p = new Net::Ping( "icmp" );
print "Pong\n" if ( $p->ping( '1.2.3.4', 5 ));

root@myserver#