use Net::Ping;



$hostname = 'jimmy';  # host to check

$timeout = 10;        # how long to wait for a response

print "'jimmy' is alive\n" if pingecho($hostname, $timeout);

