#!/usr/bin/perl -w
use strict;
use warnings;
use CGI::Pretty qw(:standard);

my %fish = (
  'fish1.jpg'  => 'Fresh water fish',
  'fish2.jpg'  => 'Salt water fish',
  'seuss1.jpg' => 'One fish',
  'seuss2.jpg' => 'Two fish',
  'adams.jpg'  => 'Thanks for all the fish'
);
print header(), start_form(),
   popup_menu(
      -name   => 'fish',
      -values => [sort keys %fish],
      -labels => \%fish
   ),
   end_form();