#!/usr/bin/perl -wT
use strict;
use CGI qw( header Vars );

my %FORM = Vars();   ### Bingo!

print header( 'text/plain' );
$\ = "\r\n";
use Data::Dumper;
print Dumper(\%FORM);