Scripts for issue #37 - Perl