use CGI;
my $cgi = new CGI;
print $cgi->br, $cgi->start_br, $cgi->end_br, "\n";

##</code><code>##

<br /><br></br>

##</code><code>##

use warnings;
use strict;
use CGI;

my $cgi          = new CGI;
my $n            = 1;
my @COLUMN_TYPES = qw ( one two three four five );
my %attributes = (
                   'onChange' => 'displaydbfields(' . $n . ')',
                   'id'       => 'coltype' . $n,
);
my $col = { type => 'some type' };

print $cgi->popup_menu(
                        -id         => 'coltype' . $n,
                        -name       => 'type',
                        -values     => \@COLUMN_TYPES,
                        -default    => $col->{type},
                        -attributes => \%attributes,
    ),
    "\n";

##</code><code>##

<select name="type" tabindex="1" id="coltype1">
<option value="one">one</option>
<option value="two">two</option>
<option value="three">three</option>
<option value="four">four</option>
<option value="five">five</option>
</select>