#!/usr/local/bin/perl

use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

print header, start_html, h1("Radio Button Test"), "\n";

print start_form(-method=>'GET'),radio_group(
		-name => 'test',
		-values => ['A','B','C'],
		-linebreak => 'true');
		
print submit(
		-name => 'action',
		-value => 'go'), end_form, end_html, "\n";