Scripts for issue #77 - Perl