Scripts for issue #94 - Perl