Scripts for issue #43
Perl