#!/usr/bin/perl -wT

use strict;
use CGI qw/:standard/;

my %colours = (
  '#008000' => 'Green',   '#808000' => '> Olive',
  '#00FF00' => '> Lime',  '#008080' => '> Teal',
);

print header,
  popup_menu(
    -name   => 'colour',
    -labels => \%colours,
    -values => [ sort keys %colours ],
  );