# 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 => '/',
      );
   
	my $cgi = CGI->new();
	print $cgi->redirect(-uri => '/'.$typ.'sub.html', -cookie => [$to_set, $to_set_a]);