sub StateDrop {
my $state = $q->param('state');
my @states = ("1", "2", "3", "4", "5", "6");
my $menu .= qq"<SELECT NAME="state">\n";
foreach my $x (@states) {
$menu .= $x eq $state ? "<option selected>$x<\/OPTION>" : "<OPTION>$x<\/OPTION>";
}
$menu .= "<\/SELECT>";
return $menu;
}