open my $FH_IN, ...
    or die;
open my $FH_OUT, ...
    or die;

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

    print $FH_OUT $line;
}