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

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

CPAN Search: