Here is the corrected code

#!/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:";
[download]

but still the .doc is blank. P.S: I can see the .doc file size is expanding each time I run the program. For Example, when I run for the first time the .doc file size is 13KB. For the second time it is 26KB and it keeps increasing as I run the program.