Scripts for issue #58


Perl