Scripts for issue #51
Perl