$path =~ s[/][\\]g;
system "md $path";