use strict;
use CGI qw(:standard :html3);

my @teamdata = qw(Business CEAC CSAM MechEng Pharmacy);
my @teamnums = (0..12);

print header,
      start_html('Some Form'),
	  start_form,
	  table({-border=>undef},
	  		caption('Some Form'),
			Tr({-align=>CENTER,-valign=>TOP},
			[
				th([qw(Data Numbers)]),
				td(
				[
					popup_menu('data',\@teamdata),
					popup_menu('nums',\@teamnums),
				]),
			]),
      ),
	  end_form,
	  end_html;