use warnings; use CGI; my $cgi=CGI->new(); my $script_name=$ENV{SCRIPT_NAME} || $0; my $buttons=5; my $action=$cgi->param('action') || 'show'; if($action eq 'select') { my $selected=0; for my $i (1..$buttons) { $selected=$i if($cgi->param("button_$i")); } print $cgi->header(); print <DEMO

DEMO ERGEBNIS

Augewält wurde: $selected

zur Selektion EOHTML } else { print $cgi->header(); print <DEMO

DEMO

EOHTML for my $i (1..$buttons) { print qq(
\n); } print <<'EOHTML';

EOHTML }