TEST SCRIPTS
Perl test script:
test script
.