use strict;
use warnings;
use HTML::Template;
use HTTP::Server::PSGI;
use Encode;
my $tmpl = HTML::Template->new( filehandle => \*DATA );
$tmpl->param(
foo => Encode::decode( 'UTF-8', "\xe2\x99\xa5" ),
bar => "\x{2665}",
baz => chr(9829) x 10,
);
my $app = sub {
return [
200,
[ 'Content-Type' => 'text/html; charset=UTF-8', ],
[ Encode::encode( 'UTF-8', $tmpl->output ) ],
];
};
my $server = HTTP::Server::PSGI->new(
host => "127.0.0.1",
port => 9091,
timeout => 120,
);
$server->run($app);
__DATA__
PSGI is Perl
I Perl
I Perl
Perl