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

##</code><code>##

$text .= $stuff;

##</code><code>##

print $text;