Select Code to Download

#! /usr/bin/perl
#client for a basic sockets program
...
print TO_SERVER $var;
close(TO_SERVER);

#! /usr/bin/perl
#server for a basic sockets program
...

close(SERVER);