while ($_ = <INFILE>} {
    print $_;
}