Scripts for issue #42 - Perl