Scripts for issue #98 - Perl