Scripts for issue #79 - Perl