Scripts for issue #67 - Perl