Scripts for issue #48 - Perl