open INFILE, "<$infile";
while ($line_in_file = <INFILE>) {
    do processing here...
    }
close INFILE;