while ( read( TEST, $stuff, 1 )) {
    print $stuff,"\n";
}