# Process form and set cookies
   my ($cat) = param('butCat');
   my ($typ) = param('txtTyp');
   my ($to_set) = cookie(-name => 'cat',
      -value => $cat,
      -path => '/',
      );
   my ($to_set_a) = cookie(-name => 'bus_com',
      -value => $typ,
      -path => '/',
      );
   print header(-cookie => [$to_set, $to_set_a]);