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

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