while ( read($filename, $_, 1024) ) { ...