a unix specific example (slashes are different on W32 and not sure about checking for drive's existence)

perl -e 'my $p; mkdir $_ foreach(grep {!-d} map {$p .= "/$_";} grep {!
+m/^$/} split(/\//,$path));
[download]