Undefined subroutine &main::optgroup called at dropdowntests.pl line X 
##</code><code>##

my $query = new CGI;
	
my $opt = $query -> popup_menu(
   -name=>'menu_name',
   -values=>[qw/eenie meenie minie/,
      optgroup( 
         -name=>'optgroup_name',
         -values => ['moe','catch'])],
         -labels=>{'eenie'=>'one',
                   'meenie'=>'two',
                   'minie'=>'three'},
         -default=>'meenie');

my $template = HTML::Template->new(
   filename => '../dropdowntests.tmpl',
   die_on_bad_params => 1);

$template->param( optiongroup => $opt);
print "Content-type: text/html\n\n";						
print $template->output();