Scripts for issue #51 - Perl