copy will check if the destination file exists. I don't think exists a parameter for overwrite destination file. Maybe you want this:

unlink $destfile if -f $destfile;
copy($origfile, $destfile);
[download]

Update: This is a workaround. As mickeyn said at Re: help needed in File::copy, File::Copy should overwrite destination file.