Scripts for issue #63 - Perl