use strict;
use warnings;
use DBI;
use Getopt::Long;
my  $CGI_params = Vars;
my %CGI_PARAM  = %$CGI_params;
$site = "";
$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();
  header();
}
sub status{
my $stm=$site_selected;
}
sub header 
{
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=>"submit");
print end_form;
}

##</code><code>##

http://ad.sd.an.com/pps/dev/board/1/bin/db.cgi?popup=a1&submit=submit

##</code><code>##

http://ad.sd.an.com/pps/dev/board/1/bin/db.cgi?popup=a1&submit=a1