sub generate_form {

    print start_multipart_form(), 
        strong('GO Term or GO ID:' ),
            textfield( -name => 'go_ti'
                       -overrride => 1
                       -default => 'microtubule' # no effect
                   ), br, br

        strong('Sequence Type: '),
            popup_menu(
                -name   => 'seq_type',
                -values => [
                    'Upstream',   
                    'Downstream',
                    'ORF (unspliced)',
                    ]
            ),

        strong('Start:'),
            textfield( -name => 'win_start'
                       -overrride => 1
                       -size => 10,       # no effect
                       -maxlength => 10,
                       -default => '-800'
                   ), 

        strong('End:'),
            textfield( -name => 'win_end'
                       -overrride => 1
                       -size => 10,     # no effect
                       -maxlength => 10,
                       -default => '-1'), br, br


        strong('Organism Types: '),
            popup_menu(
                -name   => 'organism',
                -values => [
                    'A.gambiae',   
                    'A.nidulans',
                    'A.thaliana',
                    'B.subtilis',
                    'C.elegans',
                    'C.familiaris',
                    'D.melanogaster',
                    'D.rerio',
                    'E.coli',
                    'F.rubripes',
                    'G.gallus',
                    'H.sapiens',
                    'M.musculus',
                    'R.norvegicus',
                    'S.cerevisiae',
                    ]
            ),br, br

        submit( -name=>'action', -value => 'Submit' ), 
        end_form;

}

# the complete code is here: http://dpaste.com/8976/plain/