Scripts for issue #55 - Perl