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

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