Scripts for issue #93
Perl