use CGI qw(:standard);

sub set_params
{
   my %fields;
   $fields{foo} = param('foo') || 0;
   $fields{bar} = param('bar') || 0;
   $fields{baz} = param('baz') || 0;

   return %fields;
}