use v5.12;
use warnings;
use Devel::Peek;
#use open OUT => qw{:encoding(UTF-8) :std};


my $t4 = "\N{LATIN SMALL LETTER A WITH RING ABOVE}\n";
Dump $t4;
warn "t4: ",$t4;
__DATA__