$ perl -MPath::Tiny -le " my $f = path( 2 ); $f->spew(2); print $f->slurp;  $f->openw; print $f->slurp; "
2