use IO::Socket;
                                                                                
my  $sock = IO::Socket::INET->new(PeerAddr => 'localhost',
                                  PeerPort => 'http(80)',
                                  Proto    => 'tcp');
                                                                                
                                                                                
print $sock ? "alive" : "not alive";