use File::Copy::Recursive; 
use File::Find;
use strict;

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