Scripts for issue #40 - Perl