uuse strict;
use warnings;
use DBI;
use Getopt::Long;
use CGI qw/:all :cgi-lib/;
my  $CGI_params = Vars();
my %CGI_PARAM  = %$CGI_params;
my $site = "";
my $site_selected="a1";
$site = "a1";
$site_selected = $CGI_PARAM{'popup'};
$site = $CGI_PARAM{'popup'};

if($site_selected =~ /^\s*$/) {
    $site = "a1";
    $site_selected="a1";
}
defined $site or die "usage:$0";
my %map=(a1=>[qw(r_a1_c)],a1=>[qw(r_a2_c)],);
show();
sub show{
  status();
  MyHeader();
}
sub status{
my $stm=$site_selected;
}
sub MyHeader
{
print start_form(-method=>"GET",-action=>"db.cgi");
print " <br> &nbsp<B>Site</B> &nbsp";
print popup_menu(
       -name    => 'popup',
       -value  =>  keys % map,
       -default => 'value2'
         );

print "&nbsp &nbsp &nbsp &nbsp &nbsp";
print submit(-type=>"submit",-name=>"submit",-value=>$site);
print end_form, "\n";
}