Scripts for issue #62 - Perl