#!/usr/bin/perl
use File::NCopy;
use File::Path;

$file = File::NCopy->new(recursive => 1);
$file->copy($dir1, $dir2); # Copy $dir1 to $dir2 recursively 
rmtree([$dir1]);
[download]