#! /usr/bin/perl -w

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


my ($webmaster, $user, $name, @names, $value, @values, $query);

$query = CGI->new;

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

 @names= $query->param;
 
 foreach $name(@names){ 
          
          $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";


exit(0);