# eins.cgi
use CGI;
use JSON;

my @array = ( 	[ 1, 'eins', '12/11/10', 'sn' ],
		[ 2, 'zwei', '11/12/09', 'cp' ],
		[ 3, 'drei', '04/09/11', 'cp' ]
);
my $radio_values, encode_json /@array;

my $cgi = new CGI();

print $cgi->header();
print $cgi->start_html();
print $cgi->startform(	-action => 'zwei.cgi', -method => 'POST' );
print $cgi->radio_group(	-name		=> 'choice',
				-values		=> [ @$radio_values ],
				-linebreak	=> 'true' );
print $cgi->submit( 'OK' );
print $cgi->endform();       
print $cgi->end_html();