xcopy /S d:\somedir r:\somedir

##</code><code>##

cp -s /somedir /somedir

##</code><code>##

#!D:\Perl\bin\perl.exe -w

use Shell;
$src = "giveto\\kerri";
$dest = "D:\\1234567";
$ops = "\/S";
xcopy($ops,$src,$dest);