How about this:

# open them
my $old = "something.doc";
my $new = "somethingelse.doc";
open OLD, '<', $old or die "Can't open old: $!\n";
open NEW, '>', $new or die "Can't open new: $!\n";
binmode OLD; # only need these on windows
binmode NEW;

# copy
print NEW <OLD>;

# close them
close OLD;
close NEW;
[download]