use CGI;
my $q = CGI->new();

my %labels = ('black'  => 'Black',
              'brown'  => 'Brown',
              'red'    => 'Red',
              'yellow' => 'Yellow');

print $q->popup_menu(
              -name    => 'Summary',
              -values  => ['black','brown','red','yellow'],
              -default => 'red',
              -labels  => \%labels
          );

# alternatively, without named params

print $q->popup_menu(
              'Summary',
              ['black','brown','red','yellow'],
              'red',
              \%labels
          );