#!/usr/bin/perl
use warnings;
use strict;
use utf8;

use open OUT => ':encoding(UTF-8)', ':std';

use Encode;
use Path::Tiny;

my $cyrillic_utf8 = shift;
my $cyrillic = decode('UTF-8', $cyrillic_utf8);

my $out = path("$cyrillic.txt");
$out->spew($cyrillic);

my ($in) = path('.')->children(qr/$cyrillic_utf8\.txt/);

my $string = $in->slurp_utf8;
print $string, "\n";