use Data::Dumper; ... print "Content-Type: text/html\n\n"; print "

\n"
print Dumper(\%INPUT); # insert this after the foreach loop
print "

\n" exit(0); ...