##

##


  
  


##

##

use CGI 'header';
use HTML::Template;
use HTML::Menu::Select 'menu';

my $tmpl = HTML::Template->new( ... );

my $select = menu(
  name     => 'response',
  values   => ['yes', 'no'],
  default  => 'yes',]
  onChange => 'alert(this.value);',
);


$tmpl->param( select_menu => $select );

print header();
print $tmpl->output;