Scripts for issue #76 - Perl