Scripts for issue #47 - Perl