Select Code to Download

$ perl -e " use Path::Tiny qw/ path /; path(qw/./)->openrw_raw; "
Error open (+<:raw) on '.': Permission denied at -e line 1.

#!/usr/bin/perl --
use strict; use warnings;
...
    ...
    close $filehandle;
}