use CGI qw/:standard :delete_all :escapeHTML :html3 :all/;
use HTML::Template; 

print header; 

my $item = "CONTINUE";

if ($item eq "SELECT") {
   $html_output = ......
}
elsif ($item eq "CONTINUE") {
   $html_output = ......
}
elsif ($item eq "DENIED"){
   $html_output = ......
}

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

$template->param( html_output => $html_output );

print $template->output();