There is File::Path to do just that :)

I can't believe that nobody recommended File::Path:

use File::Path qw( mkpath );
mkpath( "/usr/local/foo/bar" ); # die()s on error
[download]

mkpath( "/usr/local/foo/bar" ); # die()s on error

With the new version of File::Path, you can stop things from dieing quite nicely:

  mkpath("/usr/local/foo/bar", {error => \my $err});
[download]

This new version is bundled with 5.10, and will probably wind up in 5.8.9 as well.

• another intruder with the mooring in the heart of the Perl

I'm almost with gamache on this one, if it's not something you need to do often in the program, or if you don't have the access/ability to install the File:Path module, then doing 'mkdir -p' in a "perlish" way might be even easier (considering you're in a Unix environment):

$path = "/path/to/real/deep/folder";
$out = `mkdir -p $path 2>&1`;
die "Can't make path: $out\n" if ($? > 0);
[download]

File::Path is core. It's part of Perl.

File::Path looks awfully promising.

You are likely looking for File::Path::mkpath.

... which does not look like a bad idea at all to me. :)