Scripts for issue #78 - Perl