Scripts for issue #80 - Perl