Scripts for issue #75 - Perl