#!/usr/bin/perl --
use strict; use warnings;
use WWW::Mechanize;
my $ua = WWW::Mechanize->new;
for my $url(qw[ http://localhost:3000/unicode http://localhost:3000/bytes http://localhost:3000/unibyte   ]){
    $ua->get($url);
    DD($ua->res->as_string);
}
sub DD { use Data::Dumper; print Data::Dumper->new([@_])->Useqq(1)->Dump, "\n"; }
__END__
$VAR1 = "HTTP/1.0 200 OK\nServer: Perl Dancer 1.3118\nContent-Length: 6\nContent-Type: text/html; charset=UTF-8\nClient-Date: Mon, 21 Jul 2014 02:56:39 GMT\nClient-Peer: 127.0.0.1:3000\nClient-Response-Num: 1\nX-Powered-By: Perl Dancer 1.3118\n\n\320\224\320\224\320\242\n";

$VAR1 = "HTTP/1.0 200 OK\nServer: Perl Dancer 1.3118\nContent-Length: 12\nContent-Type: text/html; charset=UTF-8\nClient-Date: Mon, 21 Jul 2014 02:56:39 GMT\nClient-Peer: 127.0.0.1:3000\nClient-Response-Num: 1\nX-Powered-By: Perl Dancer 1.3118\n\n\303\220\302\224\303\220\302\224\303\220\302\242\n";

$VAR1 = "HTTP/1.0 200 OK\nServer: Perl Dancer 1.3118\nContent-Length: 6\nContent-Type: text/html; charset=UTF-8\nClient-Date: Mon, 21 Jul 2014 02:56:39 GMT\nClient-Peer: 127.0.0.1:3000\nClient-Response-Num: 1\nX-Powered-By: Perl Dancer 1.3118\n\n\320\224\320\224\320\242\n";