Scripts for issue #71 - Perl