open INFILE, "<$file" or die "$0:  Can't open file $file: $!";

while (<INFILE>){
 # do something with $_
}