$ ./2.1.pt.pl 
abs is /home/bob/4.scripts/distro/2.1.pt.pl
path1 is /home/bob/4.scripts/distro
path2 is /home/bob/4.scripts/distro/games
This script will build the above path2. Proceed? (y|n)y
{
  abs => bless([
    "/home/bob/4.scripts/distro/2.1.pt.pl",
    "/home/bob/4.scripts/distro/2.1.pt.pl",
  ], "Path::Tiny"),
  ca_name => bless(["my_data/words.11108138.9", "my_data/words.11108138.9"], "Path::Tiny"),
  cwd => bless(["/home/bob/4.scripts/distro", "/home/bob/4.scripts/distro"], "Path::Tiny"),
  d_file => bless(["my_data/enable1.txt", "my_data/enable1.txt"], "Path::Tiny"),
  max_tiles => 7,
  n_1 => 10,
  save_file => bless([
    "/home/bob/4.scripts/distro/games/09-12-2019-12-51-34.txt",
    "/home/bob/4.scripts/distro/games/09-12-2019-12-51-34.txt",
    "",
    "/home/bob/4.scripts/distro/games/",
    "09-12-2019-12-51-34.txt",
  ], "Path::Tiny"),
  side => 9,
}
exiting init
  File: my_data/words.11108138.9
  Size: 871513    	Blocks: 1704       IO Block: 4096   regular file
Device: 806h/2054d	Inode: 3409780     Links: 1
Access: (0644/-rw-r--r--)  Uid: ( 1000/     bob)   Gid: ( 1000/     bob)
Access: 2019-12-09 12:31:54.804156635 -0800
Modify: 2019-12-06 14:11:08.392888086 -0800
Change: 2019-12-06 14:11:08.396887925 -0800
 Birth: -
\{
  abs => bless([
    "/home/bob/4.scripts/distro/2.1.pt.pl",
    "/home/bob/4.scripts/distro/2.1.pt.pl",
  ], "Path::Tiny"),
  ca_name => bless(["my_data/words.11108138.9", "my_data/words.11108138.9"], "Path::Tiny"),
  cwd => bless(["/home/bob/4.scripts/distro", "/home/bob/4.scripts/distro"], "Path::Tiny"),
  d_file => bless(["my_data/enable1.txt", "my_data/enable1.txt"], "Path::Tiny"),
  max_tiles => 7,
  n_1 => 10,
  save_file => bless([
    "/home/bob/4.scripts/distro/games/09-12-2019-12-51-34.txt",
    "/home/bob/4.scripts/distro/games/09-12-2019-12-51-34.txt",
    "",
    "/home/bob/4.scripts/distro/games/",
    "09-12-2019-12-51-34.txt",
  ], "Path::Tiny"),
  side => 9,
}
$