Select Code to Download

use File::Copy::Recursive; 
use File::Find;
...
my $srcdir='c:\\inetpub\\performancetesting\\output\\new\\';
my $destdir='c:\\';
File::Copy::Recursive::dircopy $srcdir, $destdir or die "Copy failed: 
+$!";

 
use File::Copy;

...
}
 
closedir(IN);