Select Code to Download

#!/usr/bin/perl -w

...
print "The client should see this message.\n";

close($client);

#!/usr/bin/perl -w

...
print "The client should see this message.\n";

close($client);

$ nc localhost 12345
The client should see this message.

$ nc --ssl localhost 12345

#!/usr/bin/perl -w

...
}

NetServer->run(port=>12345);

#!/usr/bin/perl -w

...

#NetServer->run(proto => 'ssl', port=>12345);
NetServer->run(proto => 'ssleay', port=>12345);

$ nc localhost 12345
Executing Command Pipe
...
==== Command Pipe Successful
Executing System Command
Executing Exec Command