use File::Path;
mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);