Scripts for issue #70
Perl