Also http://use.perl.org/~geoff/journal/22049