sub select_your_school { my $namesref = shift; print $q->header,start_html(-title=> 'Select Your School'),"Please select your school from the f +ollowing list:", start_form, popup_menu({ -name => 'school_id', -values => $namesref }), p( checkbox({ -name=>'not_listed', -value=>'true', -label=>' My school is not in this list.'}), ), submit("Submit"), end_form, end_html; exit; }