Select Code to Download

{C} > ls

...

[.]        [..]       test.txt
               1 File(s)              0 bytes

#!/usr/bin/perl

...
my $out_dir = "C:\\Documents and Settings\\Administrator\\My Documents
+\\tmp\\foo";

system('xcopy', "\"$und_db\"", "\"$out_dir\\\"", '/r', '/y', '/i');

{C} > test
C:\Documents and Settings\Administrator\My Documents\tmp\test.txt
...

[.]        [..]       test.txt
               1 File(s)              0 bytes