Scripts for issue #38 - Perl