Select Code to Download

$proto = getprotobyname("tcp");
$iaddr = inet_aton($host) or
...
}

close SOCKET or die "close: $!";

$protocol = getprotobyname("tcp");
socket(SOCK,PF_INET,SOCK_STREAM,$protocol) or
...

print "Closing connection.\n";
close CLIENT;