use File::Copy::Recursive; 
use File::Find;
use File::Copy;
#use strict;
$Verbose;
my $srcdir='c:\\inetpub\\performancetesting\\output\\new\\mlx\\';
my $destdir='c:\\mlx\\';
File::Copy::Recursive::dirmove $srcdir, $destdir or die "Copy failed: $!";
print "done copying";