while (my $line = <INFILE>} {
    print $line;
}