Select Code to Download

#!/usr/bin/perl -w
# udpqotd - UDP message server
...

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

#!/usr/bin/perl -w
# udpmsg - send a message to the udpquotd server
...
# 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.