Scripts for issue #53


Perl