Scripts for issue #69 - Perl