Scripts for issue #83 - Perl