if ($USE_CGI_MODULE == 1) {	

use CGI;
	
$\ = "\n";
$req = new CGI;
print $req->header;
&read_fields;

}

else {
# cgi process variables here if CGI.PM is not available
}

sub read_fields {

my(%fields);

foreach $f ($req->param) {
$name = &clean_name($f);
$fields{$f}{name} = $name;
$value = &clean_value($f);
$fields{$f}{value} = $value;
}

return(%fields);

}

sub clean_name {

local($f) = shift;
$f =~ s/^F\d+_//;
$f =~ s/_/ /g;
return($f);

}
	
sub clean_value {

local($f) = shift;
local(@val, $val);
@val = $req->param($f);
$#val-- unless $val[-1] =~/\S/;
$val = join(" - ", @val);

}