use Path::Class qw(dir);
dir("foo", "bar")->mkpath;
[download]

There is the File::Path module (in the standard distribution of Perl even), which does exactly that, create intermediate directories if they don't exist.

However, be aware that File::Path does not play nice with taint. I had to 'roll my own' in-house equivalent because of this.

system( "mkdir -p $dirname" );
[download]

What about platforms that do not have mkdir? Why rely on external tools at all? That just creates a useless dependency that can't be satisfied on all platforms.

File::Flat->write( '/some/path/that/might/exist.txt', $contents );
[download]

File::Flat->canWrite( '/some/path/that/might/exist.txt' );
[download]

$path =~ s[/][\\]g;
system "md $path";
[download]

Here is somthing I wrote to do what you need.

#Note this is windows centric
use strict;

make_dir("c\:\\this\\is\\a\\deep\\subdirectory\\");

sub make_dir {
    my ($inpath) = @_;    #Full directory path
    my $path = "";        #Storage path

    #Loop through the sections
    foreach(split/\\/,$inpath) {
        #Add to path
        $path .= $_ . "\\";

        #Elimnate the drive and check to see if path exists
        if(!/\:/ and !-e $path) {
            #If not then make it
            mkdir $path;

            #Show status for demo
            print "Makeing $path\n";
        }
    }
}
[download]

Just emulate the Linux function:

sub MkDirs ($) {
    my ($Dir) = @_;
    my @Folders = split(/\\|\//, $Dir);
    $Dir = shift @Folders;
    foreach my $Folder (@Folders) {
      $Dir = File::Spec->catfile( $Dir, $Folder );
      mkdir $Dir unless (-e $Dir);
    }
}
[download]

the easiest way with native Perl

sub mkdirp($) {
    my $dir = shift;
    return if (-d $dir);
    mkdirp(dirname($dir));
    mkdir $dir;
}
[download]