multifields.pl

#!/usr/bin/perl

use common::sense;
use Data::Dump;
use CGI;

my $cgi = CGI->new;
print $cgi->header;

my @selected = $cgi->param('myfield');

print "<pre>" . Data::Dump::dump(\@selected) . "</pre>";


print <<FORM;


<form method="get">

A: <input type="radio" name="myfield" value="RadioA" />
B: <input type="radio" name="myfield" value="RadioB" />
C: <input type="radio" name="myfield" value="RadioC" />
<br />

A: <input type="checkbox" name="myfield" value="CheckA" />
B: <input type="checkbox" name="myfield" value="CheckB" />
C: <input type="checkbox" name="myfield" value="CheckC" />
<br />
<input type="submit">
</form>


FORM