Scripts for issue #74 - Perl