Scripts for issue #53
Perl