use CGI qw/:standard :delete_all :escapeHTML :html3 :all/;
use HTML::Template;
print header;
my $item = "CONTINUE";
my ($item1_val, $item2_val, $item3_val ) = 0;
if ($item eq "SELECT") {
$item1_val = 1;
}
elsif ($item eq "CONTINUE") {
$item2_val = 1;
}
elsif ($item eq "DENIED"){
$item3_val = 1;
}
my $template = HTML::Template->new( filename => 'template4.tmpl' );
$template->param( item1 => $item1_val );
$template->param( item2 => $item2_val );
$template->param( item3 => $item3_val );
print $template->output();