use File::Path;
mkpath ['/foo/bar/baz'];
で一気に作成する。
mkpath (['/dir1/dir2/dir3', '/DIR1/DIR2/DIR3']);
第一引数に作成するパスのリストをリファレンスで渡すと、
全部作成する。
mkpath (['/foo/bar'], 1);
第二引数に 1 を指定すると、作成したディレクトリを STDOUT へ出力する
デフォルト 0
mkpath (['/foo/bar'], 1, 0700);
パーミッションは第三引数。