Scripts for issue #57


Perl