Scripts for issue #56 - Perl