#! /usr/bin/perl
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Data::Dumper;

my $cgi = CGI->new();
print $cgi->header();
print $cgi->start_html('Parameterdumper');

my %params = $cgi->Vars();
print "<pre>";
print $cgi->escapeHTML( Dumper(\%params) );
print "</pre>";
print $cgi->end_html();