#!/usr/bin/perl --
use utf8;
use Dancer;
use Encode qw/ encode decode /;

sub DD { use Data::Dumper; print Data::Dumper->new([@_])->Useqq(1)->Dump, "\n"; }

config->{charset} = 'UTF-8';

my $unicode = "\x{414}\x{414}\x{422}"; ## q{ДДТ};
my $bytes   = encode('UTF-8', $unicode);

DD( $unicode, $bytes, encode('UTF-8', $bytes) );

get '/unicode' => sub { return $unicode  };
get '/bytes'   => sub { return $bytes };
get '/unibyte' => sub { return decode('UTF-8', $bytes ); };

dance;
__END__
$VAR1 = "\x{414}\x{414}\x{422}";
$VAR2 = "\320\224\320\224\320\242";
$VAR3 = "\303\220\302\224\303\220\302\224\303\220\302\242";

>> Dancer 1.3118 server 300 listening on http://0.0.0.0:3000
== Entering the development dance floor ...
Terminating on signal SIGINT(2)