while(read (TEST, $stuff, 1)) {