#!perl
use Socket;
$Server=www.server.com;
$Port=80;
print "Content-type: text/html\n\n";
print "Connect> $Server :$Port ...\t";
socket (MyConn, PF_INET(), SOCK_STREAM(), getprotobyname("tcp")|6);
$ok=connect (MyConn, sockaddr_in($Port,inet_aton($Server)));
if ($ok!= 0)
{print "OK\n";
#Идем дальше...
}
else {print "connection refused\n";close (MyConn);exit;}