Scripts for issue #68 - Perl