Scripts for issue #57 - Perl