open (INPUT, "$file_in") or die %!;
open (TESTFILE, "$file_test") or die %!;