my $q = new CGI;
my $action = $q->param("action") || "enter";

my $cart_id = generate_header($q);
my @allnames = $q->param;
print "All vars => @allnames<BR>";
print "Action is $action";

##</code><code>##

All vars => newitem qty
Action is enter