#!/usr/bin/perl

use warnings;
use strict;
use CGI;

my $q = CGI->new;

print $q->header, $q->start_html(-title=>"Monkies");

my @options = qw/Macaque Proboscis Invisible Lemur/;

if($q->param("monkies")) {
        print "It looks like you selected the following symian friends.<br />\n";
        print join("<br />\n", $q->param("monkies"));
}


print $q->start_form;
print $q->popup_menu(-name=>"monkies", -values=>\@options, -multiple=>"multiple", -size=>"5");
print $q->submit(-value=>"Choose");
print $q->end_form;
print $q->end_html;