#!/usr/bin/perl

use CGI;

$query = new CGI;
@names = $query->param;

open OUTFILE, ">/tmp/xforms";

print "Content-type: text/xml\n\n";

print "<document><para>Done</para></document>\n";

foreach $item (sort keys %ENV)
{
	print OUTFILE "$item: $ENV{$item}\n";
}

foreach $item (@names)
{
	print OUTFILE "$item: ", $query->param($item), "\n";
}

close OUTFILE;