CGIフォームのデータをTemplate-Toolkitで受け取ったよ

Perlで作るモバイルサイトのコツ：第1回
http://codezine.jp/article/detail/496

デザイン部分のHTMLとプログラム部分を切り分けるためのテンプレートライブラリ「Template-Toolkit」と、HTTP::MobileAgentを組み合わせることで、より快適な携帯サイトのデザインが可能となります。
#!/usr/local/bin/perl
use strict;
use warnings;
use CGI;
use Template;
use HTTP::MobileAgent;
my $q = CGI->new;
とありましたので。

この記事とは関係ないけど
use CGI;
use Template;
と　私も　一緒に使ってみることにいたしました。遊んでみてね。

英語で入力してね
http://localhost/tform.cgi　を呼んでください。
Cドライブの人は　Dを　Cに変えてくださいね

tform.cgi

#!D:/xampp/perl/bin/perl -w
use utf8;
use CGI;
$q = new CGI;
print $q->header(-charset => 'utf-8'),
$q->start_html(-title=>"Example CGI.pm Form"),
$q->h1(' Example CGI.pm Form'),
$q->start_form(-action=>'tcgi4.cgi'),
$q->em("What's your name?"),
$q->textfield('name'),
$q->reset,
$q->submit('Action','送信'),
$q->submit('Action','Scream'),
$q->endform,
$q->end_html;

tcgi4.cgi

#!D:/xampp/perl/bin/perl
use utf8;
use Template;
use CGI;
use Encode;
my $q=CGI->new();
my $tt=Template->new(ENCODING=>'utf-8');
my $input='tcgi.html';
my $vars={name=>($q->param(name))};
print $q->header(-charset => 'utf-8');
$tt->process($input,$vars);
print encode('utf-8', $output);

tcgi.html
< html>
< body>
< h1 > CGI　Paramaters</h1>
< p >[% name %]</p></body></html>

trinity777 と入力してみてください