RosettaCodeData/Task/Make-directory-path/Perl-6/make-directory-path-2.pl6

for [\,] $*SPEC.splitdir("../path/to/dir") -> @path {
    mkdir $_ unless .e given $*SPEC.catdir(@path).IO;
}