Select Code to Download

use experimental 'refaliasing';
my $rvars = { foo=>"bar" };
\my %vars = $rvars;      # alias
print $vars{foo}, "\n";  # prints "bar"
$vars{abc} = "xyz";      # modifies $hashref's contents

use Path::Tiny;
use Time::Piece;
...
        localtime->strftime("%d-%m-%Y-%H-%M-%S.txt") )->touchpath;
    # ...
}

use Path::Tiny;
use Time::Piece;
...
        localtime->strftime("%d-%m-%Y-%H-%M-%S.txt") )->touchpath );
    # ...
}