Scripts for issue #88 - Perl