Scripts for issue #59 - Perl