#!/usr/bin/perl -Tw

use strict;
use CGI;
my $query = new CGI;
my @keys  = $query->param;

my %data;

# Do NOT use this code.  It is very insecure and for illustration purposes only!
# Individual elements are untainted and may be dangerous!

for (@keys) {
    $data{$_} = $query->param($_);
}