#!/usr/local/bin/perl5_8
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;

my $CGI = new CGI ( { 'fred'   => 'ethel',
                      'ricky'  => 'lucy',
                      'fred'   => 'wilma',
                      'barney' => 'betty'
                    }
                  );

$|=1;
print $CGI->header;

print "Begin testing area.<br>\n";

my ($params, @foo, %params);
$params = $CGI->Vars;
print $params->{'address'};                #<--- what is "address"?
@foo = split("\0",$params->{'foo'});
%params = $CGI->Vars;
print $params->{'address'};
use CGI ':cgi-lib';
$params = Vars;