open my $fh,'<','file1.doc' or die "can't open file:";

open my $fh2,'>>','file2.doc' or die "can't open file:";

while(<fh>)
{
   print fh2 "$_\n";
}

close $fh2 or die "can't close file:";
close $fh or die "can't close file:";