$ perl -MPath::Tiny -le " path( q/goner/, map { 1 } 1 .. 117 )->touchpath; path(q/goner/)->remove_tree "
mkpath failed for goner/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1: No such file or directory; The filename or extension is too long at -e line 1.

$ perl -MPath::Tiny -le " path( q/goner/, map { 1 } 1 .. 116 )->touchpath; path(q/goner/)->remove_tree "

$ perl -MPath::Tiny -le " $f=path( q/goner/, map { 1 } 1 .. 116 )->touchpath; print scalar(gmtime($f->stat->mtime)); path(q/goner/)->remove_tree "
Thu Oct  1 22:07:21 2015