Scripts for issue #85
Perl