package Froup;# Froup.pm use parent qw/ CGI::Application /; use CGI::Application::Plugin::AutoRunmode; use utf8; use Encode; my $pound = "\N{U+00A3}\xA3"; my $infinity = "\N{U+221E}"; sub my_run_mode : StartRunmode { my( $self ) = @_; $self->header_add( -charset=>'UTF-8' ); Encode::encode('UTF-8',qq{ Pound Pound $pound }); } sub another_run_mode : Runmode { my( $self ) = @_; $self->header_add( -charset=>'UTF-8' ); Encode::encode('UTF-8', qq{ Infinity Infinity $infinity }); } 1; #~ plackup -l localhost:80 -e require(Froup) #~ perl Froup.pm #~ perl Froup.pm rm=my_run_mode #~ perl Froup.pm rm=another_run_mode