# 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]);

##</code><code>##

	$i = 0; 
	while (@record[$i]){
		# Set adv_cookie
		$cgi = CGI->new;
		$adv = @record[$i];

      my ($to_set) = cookie(
      	-name => 'adv',
      	-value => $adv,
      	-path => '/',
      );

print header(-cookie=>[$to_set]);

	$i=$i+1;	
	my (@args) = ($path."advlst.cgi");
 	system(@args);