my $ret = system "`xcopy "C:\\Program Files\\UltraVNC\\*.*" "\\\\$ip\\C\$\\Program Files\\UltraVNC\\*.*" /r/i/c/h/k/e/Y";
die "xcopy failed" if $ret;
$ret = 0;
...