5 # On some systems, the -p option to mkdir (= also create any missing parent
6 # directories) is not available.
10 foreach $arg (@ARGV) {
25 local($parent) = $dir;
26 $parent =~ s|[^/]*$||;
31 mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n";
32 print "created directory $dir\n";