Help for this page

Select Code to Download

Select or download this

$port=80;
$proto=getprotobyname('tcp');
socket(SOCKET,AF_INET,SOCK_STREAM,$proto) or die "no socket";
...
if(connect(SOCKET,$padr)){
print "connection ok";}
else{print "$!\n";}

Select or download this

$conn = IO::Socket::INET->new(
    PeerAddr=>"127.0.0.1",
    PeerPort=>80,
    Proto=>'tcp',
    Timeout=> 1, 
        Blocking=>1    );