open TT1, "<test.out" ?
do { print "1. [OK]\n"; @x = <TT1>; close TT1; }
:
print "[ERROR]\n";