Select Code to Download

$line = "Hello, world!\n";
$port = 2000;
...
print SOCKET ("$line\n");
close (SOCKET);
close (SSOCKET);

$port = 2000;
while (getservbyport ($port, "tcp")) {
...
$line = <SOCKET>;
print ("$line\n");
close (SOCKET);