Scripts for issue #44 - Perl