#!/usr/bin/perl
use CGI;
use Data::Dumper;

my $q = new CGI;

print $q->header('text/plain');
%params = $q->Vars;
print Dumper(\%params);
print $q->param('POSTDATA');