Scripts for issue #96
100
Perl