Added not yet finished test script in perl.