Select Code to Download

my $path1 = Path::Tiny->cwd;
say "path1 is $path1";
...
...

 $vars{"grandfather"} = $vars{"init_dir"}->parent();

use warnings;
use strict;
...
        };
vars-grandfather : usr
vars-grandfather : C:/usr