Scripts for issue #88


Perl