Scripts for issue #45 - Perl