Scripts for issue #49 - Perl