test

use strict; use CGI qw(:standard); my $box; print header, start_html('test'), start_form, textfield(-name=>'box',-override=>1), submit('go'), end_form; if ($box = param('box')) { print 'You submitted' . div({style=>'display: inline; color: red'},$box); } ##

##

use strict;
use CGI;
use HTML::Template;

my $cgi  = CGI->new();
my $data = do { local $/;  };

my $template = new HTML::Template(
   scalarref => \$data,
   associate => $cgi,
);

$template->param(
   url => $cgi->script_name(),
);

print $cgi->header(), $template->output();

__DATA__

test







  You submitted