Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
print "The client should see this STDOUT message.\n";
print $client "The client should see this SOCKET message.\n";
close($client);

Select or download this

$ nc --ssl localhost 12345
The client should see this STDOUT message.
The client should see this SOCKET message.