while ( <$filename> ) { ...