use strict;
use warnings;
use File::Copy::Recursive qw(dircopy);
dircopy('E:\test\split\Output','C:\New') or die("$!\n");