sub add_age { my $age = $Session->param('age'); my $name = $Session->param('name'); ++$age; print $Session->param('name'), "\'s new age is $age"; $Session->param(-name=>'age', -value=>$age, -force=>1); $Session->param(-name=>'name', -value=>$name, -force=>1); $Session->save_param($cgi); print $cgi->start_form, $cgi->hidden(-name=>'test', -value=>'test'), $cgi->submit('Next'), $cgi->end_form; }