tmplvar.cgi

#!/usr/local/bin/perl
use strict;
use HTML::Template;

my $tmpl = HTML::Template->new(filename => 'tmplvar.tmpl');

$tmpl->param( KEYWORD => "Perl ぱるも" );

$tmpl->param( MSG => <<MSG );
Hello, JavaScript world.
I'm Palmo!
MSG

print "Content-Type: text/html\n\n", $tmpl->output;

tmplvar.cgi を開く