Select Code to Download

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

...
my @allnames = $q->param;
print "All vars => @allnames<BR>";
print "Action is $action";

All vars => newitem qty
Action is enter