Scripts for issue #54 - Perl