BTW, mkpath from Path::Tiny does it all, less or more:

"...Errors will be trapped and an exception thrown. Returns the list of directories created or an empty list if the directories already exist, just like make_path."

karls-mac-mini:monks karl$ perl -MPath::Tiny -E 'say path (q(/foo/bla)
+)->mkpath'
/Users/karl/Desktop/bla
karls-mac-mini:monks karl$ perl -MPath::Tiny -E 'say path (q(/foo/bla)
+)->mkpath'

karl-mac-mini:monks karl$
[download]

Regards, Karl