Scripts for issue #41 - Perl