#!/usr/bin/perl -w

use strict;

mkdir_p($ARGV[0]);

sub mkdir_p
{
  my($d)=@_;

  my $dirsofar = "";
  foreach my $dc (split(/\//,$d))
  {
    next unless ($dc);
    $dirsofar .= "/".$dc;
    if (!mkdir($dirsofar))
    {
      if ($! !~ /exists/i)
      {
        die "Couldn't mkdir($dirsofar): $!";
      }
    }
  }
}