Added threads to test.perl