open (FILEHANDLE,"file.txt") ;
while ($line = <FILEHANDLE>) { ... }
close (FILEHANDLE) ;