#!/usr/bin/perl -w

use strict;

sub my_mkdir {
  my $path       = shift;
  my $perms      = shift;

  my ($parent) = $path =~ /(.*)\//;

  if ($parent) {
    my_mkdir($parent,$perms);
    mkdir ($path, $perms) or return;
    return 1;
  }else {     #at base of path
    mkdir ($path, $perms) or return;
    return 1;
  }
}

my $path    = shift;
my $perms   = 0777;

my_mkdir($path, $perms) or die "ERROR: $!\n";