#!/usr/bin/perl -w
use CGI;
use strict;
my $query = CGI->new;
print $query->header;
my $button = $query->param('submit');
my @fs = ('test1.txt', 'test2.txt', 'test3.txt', 'test4.txt');
if ($button eq "save") {
foreach my $f (@fs) {
my $which_radio_button = $query->param("$f");
print "for $f you selected $which_radio_button
\n";
if ($which_radio_button eq q{}) {
$query->delete($f);
}
}
#$query->delete_all();
}
print "";
print $query->start_form();
#print $query->defaults('Restore to Defaults');
foreach my $f (@fs) {
print $query->radio_group(-name=>$f,
-value=>['c','r','t','s'],
-default=>'-');
print "
";
}
print $query->defaults('Return to default');
print $query->submit(-name=>'submit',-value=>'save');
print $query->end_form();
print "";