open my $INFILE, '<', 'filename'
    or die "Couldn't open file: $!";

while (my $line = <$INFILE>) { ...