Scripts for issue #85 - Perl