複数階層のディレクトリを作成する

#!/usr/bin/evn perl
use strict;
use warnings;
use Path::Class;

dir('foo','bar')->mkpath or die "can't create dir";

パス表現はPath::Classを使う事でCross Platformで扱う事ができます。

See also
http://d.hatena.ne.jp/perlcodesample/20080524#seeall