while (<INFILE>) {
    # Process stuff here.
    print OUTFILE $newline;
}