$ 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__ 

$