my $file = File::NCopy->new(recursive => 1);
$file->copy($wherefrom,$whereto);