#!/usr/bin/perl -w
use strict;
use Wrap;
use CGI;

my $q = new CGI;

open(FILE, "form.html");
print <FILE>;
print "<ol>\n";
foreach my $name ($q->param)
{
	print("<li>$name: ", $q->param($name) );
}
print "</ol>\n";
print "</body></html>\n";