Select Code to Download

# Process form and set cookies
   my ($cat) = param('butCat');
   my ($typ) = param('txtTyp');
...
   
    my $cgi = CGI->new();
    print $cgi->redirect(-uri => '/'.$typ.'sub.html', -cookie => [$to_
+set, $to_set_a]);

# Get Subcat data from cat cookie
    $catnum = cookie('cat');