#!/usr/bin/perl -w

use strict;  #Trust us

use CGI;
my $query = CGI::new;
my %data = $query->Vars();