Select Code to Download

#server
#!/usr/bin/perl -w
...

# You can't use the telnet program to talk to this server. You 
# have to use a dedicated client.

#client
#!/usr/bin/perl -w
...
# or maybe not even alive. Because recv is a blocking system call that
+ 
# may not return, we wrap it in the standard eval block construct 
# for timing out a blocking operation.