Scripts for issue #36 - Perl