Learn to write decent perl.
Post this program to my site, http://www.rfbooth.com/
Read Need to Know: http://www.ntk.net/