Select Code to Download

xcopy /S d:\somedir r:\somedir

cp -s /somedir /somedir

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

...
$dest = "D:\\1234567";
$ops = "\/S";
xcopy($ops,$src,$dest);