open( MYFILE, "<$filename") or die ... ... while ( my $line = ) { ...