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);