Scripts for issue #73 - Perl