>>71-72
#!/usr/local/bin/perl
use CGI qw/:standard Vars/;
my $charset = 'Shift_JIS'; my %param = Vars;

my($cookie, @form);
if ($param{'save'} eq 'save') { # 孫
　　$cookie = cookie(-name => 'test', -value => 'test');
　　@form = ('OK');
} elsif (keys %param) { # 子
　　@form = (
　　　　'Cookie に保存',
　　　　map(hidden($_, $param{$_}), keys %param),
　　　　submit(-name => 'save', -value => 'save'),
　　);
} else { # 親
　　my $name = 'a';
　　@form = (map(checkbox(-name => $name++, -value => $_), 1..5), submit);
}

print header(-charset => $charset, -cookie => $cookie),
　　start_html(-title => 'test', -encoding => $charset, -lang => 'ja'),
　　Dump,
　　start_form, p(@form), end_form,
　　end_html;