use strict;
use CGI;

#Based upon the info found at: http://search.cpan.org/~lds/CGI.pm-3.01
+/CGI.pm#CREATING_A_SCROLLING_LIST

my %database = ('Aaron Anderson' => 'The webmaster, blah blah', 'Someo
+ne Else' => 'Don\'t know', 'Fred' => 'Flintstone!', 'Wilma' => 'Fred\
+'s wife', 'me' => 'A name I call myself');

my @list = keys %database;

my $query = new CGI;

if ($query->param('mylist')) {
    print     $query->header,
            $query->start_html,
            $query->param('mylist'),' : ',
            $database{$query->param('mylist')},
            $query->start_form,
            $query->submit('Try again'),
            $query->endform,
            $query->end_html;
}
else {
    print     $query->header,
            $query->start_html,
            $query->start_form,
            $query->scrolling_list('mylist', \@list,['me'],2),
            $query->submit,
            $query->endform,
            $query->end_html;
}
[download]