Scripts for issue #65 - Perl