$ ./4.archive.pl 
path1 is /home/bob/1.scripts/pages/1.qy
base is 1.qy
$VAR1 = {
          'init_dir' => bless( [
                                 '/home/bob/1.scripts/pages/1.qy',
                                 '/home/bob/1.scripts/pages/1.qy',
                                 '',
                                 '/home/bob/1.scripts/pages/',
                                 '1.qy'
                               ], 'Path::Tiny' ),
          'title' => '1.qy',
          'script_file' => '/home/bob/1.scripts/pages/1.qy/4.archive.pl'
        };

from is /home/bob/1.scripts/pages/1.manifest
$VAR1 = {
          'init_dir' => bless( [
                                 '/home/bob/1.scripts/pages/1.qy',
                                 '/home/bob/1.scripts/pages/1.qy',
                                 '',
                                 '/home/bob/1.scripts/pages/',
                                 '1.qy'
                               ], 'Path::Tiny' ),
          'title' => '1.qy',
          'script_file' => '/home/bob/1.scripts/pages/1.qy/4.archive.pl'
        };

files are 2.create.bash ... 5.unicode  3.create.bash
temp dir is /tmp/backup_MKb3nU
read me is /tmp/backup_MKb3nU/grandmother/README.txt
item is <<2.create.bash>>
abs is </home/bob/1.scripts/pages/2.create.bash>
2.create.bash is a plain file
return is /tmp/backup_MKb3nU/grandmother/2.create.bash
...
item is <<5.unicode>>
abs is </home/bob/1.scripts/pages/5.unicode>
/home/bob/1.scripts/pages/5.unicode is a directory
item is <<>>
item is <<3.create.bash>>
abs is </home/bob/1.scripts/pages/3.create.bash>
3.create.bash is a plain file
return is /tmp/backup_MKb3nU/grandmother/3.create.bash
/tmp/backup_MKb3nU
.
./grandmother
./grandmother/1.initialize.pl
./grandmother/3.create.bash
./grandmother/5.create.sh
./grandmother/1.manifest
./grandmother/2.create.bash
./grandmother/README.txt
./grandmother/11.clone.pl
cannot remove path when cwd is /tmp/backup_MKb3nU for /tmp/backup_MKb3nU:  at /usr/share/perl/5.26/File/Temp.pm line 1583.
$