#!/usr/bin/perl -wT
use strict;
use CGI qw/:standard/;
use Data::Dumper;

my %formdata = map { $_, @{[param($_)]} > 1 ? [param($_)] : param($_) } param();

my $dump = Dumper \%formdata;

print header,
      start_html,
      pre( $dump ),
      end_html;