Unless you're experimenting with this script (or it's just for the joy of it), consider using File::Copy for the task:

use Modern::Perl;
use File::Copy;

copy( 'file1.doc', 'file2.doc' ) or die "File copy failed: $!";
[download]

Hope this helps!

Update: Am just not as fast as philiprbrenan...