Scripts for issue #66 - Perl