#!/usr/bin/perl -w
use strict;
use 5.010;
use lib "template_stuff";
use utils1;
use utils2;
use utf8;
use open qw/:std :utf8/;
use Path::Tiny;

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

my $return = redact("config2");

__END__ 

current is /home/bob/1.scripts/pages/1.qy
temp dir is /tmp/backup_DEtSio
scratch_file is /tmp/backup_DEtSio/batch_01/1.manifest.txt
parent is /tmp/backup_DEtSio/batch_01
/tmp/backup_DEtSio
$VAR1 = {
          'my_sftp' => {
                         'username' => '',
                         'password' => '',
                         'domain' => ''
                       },
          'my_github' => {
                           'password' => '',
                           'email' => ''
                         }
        };