Scripts for issue #43 - Perl