$ cat 7.cw1.pl
#!/usr/bin/perl -w
use 5.011;
use lib "template_stuff";
use html7;
use trans2;    ##yandex option available
use Path::Tiny;
use utils1;
use utf8;
use Encode;
use open OUT => ':encoding(UTF-8)', ':std';
use Net::SFTP::Foreign;
use Data::Dumper;

# initializations that must precede main data structure

my $ts          = "template_stuff";
my $images      = "aimages";
my $captions    = "captions";
my $ruscaptions = "ruscaptions";

## turning things to Path::Tiny
# decode paths

my $abs   = path(__FILE__)->absolute;
my $path1 = Path::Tiny->cwd;
my $title = $path1->basename;
$abs   = decode( 'UTF-8', $abs );
$path1 = decode( 'UTF-8', $path1 );
$title = decode( 'UTF-8', $title );
say "title is $title";
say "path1 is $path1";
say "abs is $abs";
my $path2 = path( $path1, $ts );

# page params
my %vars = (
  title        => $title,
  headline     => undef,
  place        => 'Vancouver',
  base_url     => 'http://www.merrillpjensen.com',
  css_file     => "${title}1.css",
  header       => path( $path2, "hc_input2.txt" ),
  footer       => path( $path2, "footer_center3.txt" ),
  body         => path( $path2, "rebus5.tmpl" ),
  print_script => "1",
  code_tmpl    => path( $path2, "code2.tmpl" ),
  oitop        => path( $path2, "oitop.txt" ),
  oibottom     => path( $path2, "oibottom.txt" ),
  to_images    => path( $path2, $images ),
  eng_captions => path( $path2, $captions ),
  rus_captions => path( $path2, $ruscaptions ),
  translations => path( $path2, 'translations' ),
  bottom       => path( $path2, "bottom1.txt" ),
  book         => 'Crosswords: ',
  chapter      => 'Кроссворды',
  make_puzzle  => 1,
  print_module => 0,
  script_file  => $abs,
  module_tmpl  => path( $path2, "code3.tmpl" ),
  server_dir   => 'perlmonks',
  image_dir    => 'pmimage',
  ts           => 'template_system',
  css_path     => $path2,
  ini_path     => path('/home/bob/Documents/html_template_data/3.ценности.ini'),
  cw           => path($path2,'crosswords'),
);

my $rvars = \%vars;

my $word = 'cw';

foreach my $child ( $vars{cw}->children ) {
  next unless $child->is_dir;

  say "dyetya is $child";
  my $base_dir = $child->basename;
  say "base dir is $base_dir";
  $vars{$base_dir} = path(  $child );
  say "dir is $vars{$base_dir}";
  

}


my $sftp = get_тайный($rvars);
say "result is $sftp";
  my $dir2 = $vars{"server_dir"};
  say "dir2 is $dir2";
  my $ls = $sftp->ls( "/$dir2", wanted => qr/$word/ )
    or warn "unable to retrieve " . $sftp->error;
  #print "$_->{filename}\n" for (@$ls);

  my @remote_files = map { $_->{filename} } @$ls;
  #say "files are @remote_files";
  my $rref     = \@remote_files;
#say Dumper $rref;

say "ultimate disposition of main hash-------";
say Dumper $rvars;
__END__ 

$ 

##</code><code>##

$ cat .bash_aliases 
alias pt='perltidy -i=2 -b '

##</code><code>##

$ pt 7.cw1.pl
## Please see file 7.cw1.pl.ERR
$ cat 7.cw1.pl.ERR
Perltidy version is 20180220
85:	unexpected character decimal 209 (&#65533;) in script
85:	unexpected character decimal 130 (&#65533;) in script
...
85:	unexpected character decimal 185 (&#65533;) in script
85:	Giving up after error
$ 

##</code><code>##

foreach my $child ( $vars{cw}->children ) {
  next unless $child->is_dir;

  say "dyetya is $child";
  my $base_dir = $child->basename;
  say "base dir is $base_dir";
  $vars{$base_dir} = path(  $child );
  say "dir is $vars{$base_dir}";
  

}

##</code><code>##

dyetya is /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/eugene
base dir is eugene

##</code><code>##

sub print_aoa_utf8 {
  use warnings;
  use 5.011;
  use utf8;    # a la François
  use open OUT => ':encoding(utf8)';
  use open ':std';

  my $a   = shift;
  my @AoA = @$a;

  for my $i ( 0 .. $#AoA ) {
    my $aref = $AoA[$i];
    for my $j ( 0 .. $#{$aref} ) {
      print "elt $i $j is $AoA[$i][$j]\n";
    }
  }
  return $a;
}