Scripts for issue #43


Perl