#! /usr/bin/perl -w

use strict;
use warnings;
use CGI;
use CGI::Carp qw( fatalsToBrowser warningsToBrowser );

my $query = CGI->new;

my $webmaster = "http://www.mysite.com/";

my @names = $query->param;
my @values;
foreach my $name (@names) { 
    my $value = $query->param($name);
    push(@values, $value);
}

print "Content-Type: text/plain\r\n\r\n";

print "names @names\n\n";
print "values: @values\n\n";