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', 'Someone 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;
}