# Generate a Radio Group
print $query->h1('Choose only one from the following list');
print $query->radio_group({-name=>'RadioOne',
-values=>['First Choice', 'Second Choice',
'Third Choice', 'Fourth Choice',
'Fifth Choice'],
-default=>'Second Choice'});
# Extract out whatever the radio group was
my $textInput = $query->param(-name=>'RadioOne');
print $query->hr();
print $query->p('The radio group select was:'), $query->br();
print $query->em({-align=>'center'}, $textInput);
print $query->hr();