Select Code to Download

foreach my $dir(@dirs){
mkpath("$to/$dir");
}

mkpath(@dirs);

find (sub {push @dirs => $to . '/' . $File::Find::name if -d},$from);