Scripts for issue #59
Perl