Scripts for issue #66
Perl