#!/usr/bin/perl -w
use strict;
use CGI;
my $q = new CGI;
print $q->header();
print '<pre>';
print "$_\t" . $q->escapeHTML($q->param($_)) . "\n" for $q->param();
print '</pre>';