Scripts for issue #57
Perl