Scripts for issue #46 - Perl