Scripts for issue #39 - Perl