$folder1 = "\\\\computername\\folder 1";
$folder2 = "\\\\diffcomputer\\other folder";
$data = "datafolder";

if (copy \1,"$folder1\\$data","$folder2\\$data"){} else {die "did not copy: $!";}