Scripts for issue #90 - Perl