sub clone_dir_tree {
    my ( $from, $to ) = @_;
    require File::Find;
    File::Find::find ( 
        sub { return unless -d $File::Find::name;
              $File::Find::name =~ m/^\Q$from\E(.*)$/;
              mkdir "$to/$1";
            }, 
        $from );
}