Scripts for issue #60 - Perl