You can look at File::Copy::Recursive or consider using your OS (Windows?) command line tools:

my $cmd = qq{xcopy /s "$source" "$target"};
system( $cmd ) == 0
    or die "Couldn't launch [$cmd]: $!/$?";
[download]