Scripts for issue #93 - Perl