Select Code to Download

use strict;
use Socket;
...
defined(send($incoming, "2", 0)) || die "Send error: $!";
shutdown($incoming, 2);
shutdown($socket, 2);

use strict;
use Socket;
...
defined(recv($socket, $message, $messageLen, 0)) or die "Receive error
+: $!";
print "I got the following message: $message.\n";
shutdown($socket, 2);