Scripts for issue #96 - Perl