http://qs321.pair.com?node_id=3544

If you're looking for Perl code, you should try searching CPAN:

CPAN Search: