# zwei.cgi
use CGI;

my $cgi = new CGI();
my $choice = $cgi->param('choice');

print $cgi->header();
print $cgi->start_html();
print $cgi->startform(	-action => 'drei.cgi', -method => 'POST' );
print $cgi->hidden(	-name => 'choice', -value => $choice );
print $cgi->h2( "Rating: $choice" );
print $cgi->popup_menu(		-name		=> 'rating',
				-values		=> [ '+++', '++', '+', '0', '-', '--', '---' ],
				-default	=> '0' 
);
print $cgi->br();
print $cgi->submit( 'OK' );
print $cgi->endform();   
print $cgi->end_html();