http://www.perlmonks.org?node_id=263645


in reply to Net::Ping, the mini series

Just to chime in, since this is an old post: The year is now 2003, and Win32 Perl (5.8.0 at writing) does support the alarm() call, hence alleviating one issue with using Net::Ping. But, unfortunately, security has become even more important, and you're unlikely to find any systems that allow TCP or UDP pings. I'd suggest doing your 'ping' by connecting to another known port, for example 25/smtp. After connecting you can issue the command HELO, which the server will reply with a hello back, then issue a QUIT before closing. This is also a good check of higher-level function on the remote system, but that's another node! ;)

mhoward - at - hattmoward.org