Scripts for issue #89
Perl