#!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new; print $q->header; print qq{\n}; print qq{\n}; printf qq{\n}, $q->request_method; for my $p ($q->param()) { printf qq{\n}, $p, scalar $q->param($p); } print qq{

request_method	%s
%s	%s

\n};