use Win32::Unicode;
use Win32::Unicode::Dir;
use Win32::Unicode::Error;

my $from="FROM";
my $to="TO";

cptreeW $from, $to or die $!;