Scripts for issue #58
Perl