Select Code to Download

foreach (@inventory) {
    print "<TR>";
...
    print "<TD>$inv_weights{$_}</TD>";
    print "<TD><input type=\"text\" size=\"4\" name=\"quantity$_\" ></
+TD></TR>"
                    }

foreach (@inventory) {
    my $qty = param("quantity$_");
...
            print "<TD>$inv_prices{$_}</TD>";
            print "<TD>$qty{$_}</TD></TR>";
        }