my $q = new CGI; my $action = $q->param("action") || "enter"; my $cart_id = generate_header($q); my @allnames = $q->param; print "All vars => @allnames
"; print "Action is $action";