Scripts for issue #97 - Perl