Scripts for issue #87 - Perl