Select Code to Download

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