Scripts for issue #72 - Perl