#!/usr/bin/perl
use CGI ('param');
print "Content-type: text/html\n\n";
print "Testing bigharas inventory problem
\n";
@inventory = qw( camel llama );
if (param('action') eq 'submit') {
print "Reading Data...
\n";
foreach (@inventory) {
my $qty = param("quantity$_");
$qty{$_} = $qty
}
print "\n";
foreach (@inventory) {
print "";
print "| $_ | ";
print "$inv_prices{$_} | ";
print "$qty{$_} |
";
}
print "
\n";
print "That's all\n";
} else {
print "