use Unicode::UCD qw/charblock/;

binmode STDOUT, ":utf8";

my $range = charblock(q{Cyrillic});

for ( $range->[0][0] .. $range->[0][1] ) {
    print "$_: ", chr($_), "\n";
}