$ perl -MPath::Tiny -e " path( q{goner/goner/goner/goner.txt} )->spew(1234); "
Error sysopen on 'goner/goner/goner/goner.txt37921829568512': No such file or directory at -e line 1.

$ perl -MPath::Tiny -e " path( q{goner/goner/goner/goner.txt} )->touchpath->spew(1234); "

$ cat goner/goner/goner/goner.txt
1234
$ rm -rfv goner
removed `goner/goner/goner/goner.txt'
removed directory: `goner/goner/goner'
removed directory: `goner/goner'
removed directory: `goner'