#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

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 "$_";  
}
close $fh2 or die "can't close file:";
close $fh or die "can't close file:";