#!/usr/local/bin/perl
use warnings;
use strict;

my $recreate_to = 'C:/Documents and Settings/My Documents/TEST';
my $topdir = 'H:/';
&dirs($topdir);

sub dirs{
	my $dir = shift;

	opendir (DIR,$dir)
	|| die "unable top open dir $dir $!";
	my @files = grep(/\w+/,readdir(DIR));
	close (DIR);

	foreach  my $subdir (@files){
        if(-d $dir.'/'.$subdir){
			my $level = $dir . '/' .$subdir;
			my $newfolder = $level;
			$newfolder =~ s/$topdir/$recreate_to/;
			print "New folder: $newfolder\n";
 			#			mkdir ($newfolder);
			&dirs($level);
        }
	}
}