Help for this page
sub StateDrop { my $state = $q->param('state'); my @states = ("1", "2", "3", "4", "5", "6"); ... $menu .= "<\/SELECT>"; return $menu; }