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


in reply to Re: Re: Is My Server Up??
in thread Is My Server Up??

Assuming your server is running a web-server:
use IO::Socket::INET; $sock = IO::Socket::INET->new( PeerAddr => 'www.mysite.com', PeerPort => 80, Proto => 'tcp'); if ($sock) { print "yep"; } else { print "nope"; }


--twerq