#!/usr/bin/perl -Tw

use strict;
use CGI;

our $q = CGI->new();
our %FORM;

sub parse_form
{
   # Get the input
   foreach my $p ($q->param())
   {
      $FORM{$p}=$q->param($p);
   }
}

parse_form();

print "Content-type: text/plain\n\n";
while(my($k,$v)=each(%FORM))
{
    print "$k: $v\n";
}