use strict;
use CGI;

my $q=CGI->new(); # parses all CGI parameters

print $q->header('text/plain');
print Dumper scalar $q->Vars()"