##
foreach (keys %cgi_vars) { $q->param($_ => $cgi_vars{$_}); }
####
## This worked
if ($cgi_vars{fname}) {
$q->param('fname' => $cgi_vars{fname});
} else {
$q->param('fname' => "");
}
## But this did not
$q->param('fname' => $cgi_vars{fname});