use File::Path;
    foreach my $n ( 0 .. 12 ) {
      print "/blah/10 exists prior to step $n\n"
        if -e "/blah/10";
      mkpath("/blah/$n", 1, 0755) or die "$n: $!";
  }