while ( <$filename> ) { ...

##</code><code>##

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