- or download this
<html>
<head><title>test.tmpl</title></head>
...
</form>
</body>
</html>
- or download this
#!/usr/bin/perl -wT
use HTML::Template;
...
my $template = HTML::Template->new(filename => './test.tmpl',force_unt
+aint=>1);
$template->param(form=>$q->start_form());
print $template->output();
- or download this
$> perl -T test.pl
<html>
...
$> perl -T test.pl blah=1
HTML::Template->output() : tainted value with 'force_untaint' option a
+t test.pl
line 7