Scripts for issue #61 - Perl