use File::Path;

mkpath('foo/bar/baz/qux') or die;