Jonathan Feinberg
jdf@pobox.com
Submitted for the *Best "The Perl Journal"* category.

You'll most likely need to run it like so

  $ perl tpj.pl

rather than

  $ ./tpj.pl

since not all shells will understand the -- switch.