#!/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 1; __END__ ##

##

#!/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

print $q->start_form() . "\n"; # <------ Changed code

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 $q->end_form() . "\n"; # <------ Changed code

print <<"END_HTML";


END_HTML

1;

__END__

##

##