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$