$ cat 1.a.pl
#!/usr/bin/perl -w
use 5.011;
use Path::Tiny;
use Encode;
use utf8;    # a la François
use open OUT => ':encoding(utf8)';
use open ':std';

#  This script increments and clones the file in $1.

## enabling cyrillic
## decode argv and current

say "argv is @ARGV";

foreach (@ARGV) {
  say "before decode is $_";
  $_ = decode( 'UTF-8', $_ );
  say "after decode is $_";
}

my (@in_files) = @ARGV;

my $current = Path::Tiny->cwd;
$current = decode( 'UTF-8', $current );
say "current is $current";
say "-------------";
say "in_file: @in_files";

for (@in_files) {
  my $tiny_in = path($_);

## use Path::Tiny
  my $file_contents = $tiny_in->slurp_utf8;
  $_ =~ m/^(\d+)(.*)$/;
  my $number    = $1;
  my $rest      = $2;
  my $increment = $number + 1;
  my $new_base  = $increment . $rest;
  say "new base is $new_base";

## use Path::Tiny to create new file
  my $save_file = path( $current, $new_base )->touchpath;
  say "save path is $save_file";
  my $return = $tiny_in->copy($save_file);
  $return->chmod(0755);
  say "return is $return";

## write to local manifest
  my $manifest_name = "1.manifest";
  path($manifest_name)->append_utf8( $new_base . "\n" );
  system "cat $manifest_name";
  system "cat $save_file";

}
$