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();