use warnings;
use strict;
use open qw/:std :utf8/;

use Lingua::Translit;
my $tr = new Lingua::Translit("ISO/R 9");
my $txt = "\x{0441}\x{0440}\x{043F}\x{0441}\x{043A}\x{0438}";
my $latin = $tr->translit($txt);
my $cyrillic = $tr->translit_reverse($latin);
die "text mismatch" unless $txt eq $cyrillic;
print "$latin <-> $cyrillic\n";

use Net::IDN::Encode qw/domain_to_ascii domain_to_unicode/;
my $idn = "\x{0442}\x{0435}\x{0441}\x{0442}.\x{0441}\x{0440}\x{0431}";
my $asc = domain_to_ascii($idn);
my $dom = domain_to_unicode("xn--e1aybc.xn--90a3ac");
die "domain mismatch" unless $idn eq $dom;
print "$asc <-> $dom\n";