#!/usr/bin/perl

use strict;
use warnings;

use CGI qw/:standard/;

print
    popup_menu( -name => 'color_pm',
     -values => [ 'red', 'green', 'blue', 'chartreuse' ] ),
    "\n\n",
    scrolling_list( -name => 'color_sl',
     -values   => [ 'red', 'green', 'blue', 'chartreuse' ],
     -size     => 3,
     -multiple => 'true' );

##</code><code>##

<select name="color_pm" >
  <option value="red">red</option>
  <option value="green">green</option>
  <option value="blue">blue</option>
  <option value="chartreuse">chartreuse</option>
</select>

<select name="color_sl"  size="3" multiple="multiple">
  <option value="red">red</option>
  <option value="green">green</option>
  <option value="blue">blue</option>
  <option value="chartreuse">chartreuse</option>
</select>