Scripts for issue #58 - Perl