use Win32::ODBC;
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
print "Content-Type:text/html\n";
print "\n";
print "<HTML>\n";
print "<HEAD>\n";
print "</HEAD>\n";

$cgi = new CGI;

print start_form(-action=>$cgi->script_name());
print hidden(-name=>'Choice' -value=>$cgi->param('Select'));

%labels = ("MA"=>"Mortgage Advisers", "CA"=>"Customer Advisers", "BM"=>"Branch Management", "HO"=>"Head Office", "Acc"=>"Accord", "MSa"=>"MCC Sales", "MSe"=>"MCC Service");
print popup_menu(-name=>'Select',
                 -values=>[keys %labels],
                 -default=>'',
                 -labels=> \%labels);
print submit();
print end_form();
print "Choice: $Config{'Choice'}\n";