Scripts for issue #89


Perl