test.tmpl

##

#!/usr/bin/perl -wT
use HTML::Template;
use CGI;
my $q = CGI->new();
my $template = HTML::Template->new(filename => './test.tmpl',force_untaint=>1);
$template->param(form=>$q->start_form());
print $template->output();

##

##

$> perl -T test.pl

  test.tmpl
  
    


      
    
  


$> perl -T test.pl blah=1
HTML::Template->output() : tainted value with 'force_untaint' option at test.pl
line 7