print OUTPUT_FILE while <INPUT_FILE>;

# or, to be more verbose

while ($line = <INPUT_FILE>) {
    # manipulation of $line goes here.
    print OUTPUT_FILE $line;
}