Mojo::JSONの挙動について ref: http://qiita.com/memememomo/items/39f34587c5eb4222448a

file1.txt

JSON文字列に変換する + utf8フラグを外す

sample.pl

use Mojolicious::Lite;
use utf8;
use Encode;

get '/' => sub {
    my $self = shift;

    my %data = ('name' => '太郎');

    # $json には、utf8フラグが付いていないJSON文字列が入る
    my $json = $self->render(partial => 1, json => \%data);

    # renderで描画する場合は、Encode::decodeを使う
    $self->render(json => decode_utf8($json));
} => 'index';

app->start;

__DATA__

@@ index.html.ep
<% my ($json) = @_; %>
<%= $json %>