Scripts for issue #65
Perl