sub parse_vars {
    $query= new CGI;
    if (param){
        foreach $name (param())  {
            $value = param($name);
            if($value eq ""){$value="n/a";}
            $parms = "\$".$name."=\$query->param(\'$name\');";
            eval $parms;
        }
    }
}