open IN, "some_file" or die $!;
open OUT, ">>some_other_file" or die $!;

#generic file processing
while (<IN>) {
     #process...
     print OUT $result;
}