open my $fh,'<','file1.doc' or die "can't open file: $!";
## OR
   open my $fh2,'>>','file2.doc' or die "can't open file: $!";