#!/usr/bin/perl -wT use CGI; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use strict; use warnings; my $q = CGI->new; print $q->header(); print <<"END_HTML";

END_HTML foreach my $f (qw(foo bar baz)) { print "

$f

\n"; print $q->radio_group( -name => $f, -values => [qw(c r t s)], -default => '-', ) . "\n"; } print $q->submit(-name => 'submit', -value => 'save') . "\n"; print <<"END_HTML";

END_HTML 1; __END__