my $path1 = Path::Tiny->cwd;
say "path1 is $path1";
my $title = $path1->basename;
say "base is $title";

# script parameters
my %vars = (
  init_dir    => $path1,
  title       => $title,
  script_file => $fspecfile,

);

...

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