#! /usr/common/bin/perl

# prints form contents from file of HTML

use HTML::Form;

while (<>)
{
	$content .= $_;
}

my @forms = HTML::Form->parse($content, "http://www.research.att.com");

for ($formno = 0;; $formno++)
{
	my $form = $forms[$formno];
	last unless defined $form;

	print "\n" unless $formno == 0;
	print "FORM $formno\n";

	for $input ($form->inputs)
	{
		print $input->name, ": ", $input->value, "\n" unless defined $post_args->{$input->name};;
	}
}

