#!/usr/bin/perl --

use strict;
use warnings;
use diagnostics;

use CGI();

my $cgi = CGI->new();
my $poop = [];

use Data::Dumper;
print Dumper( $cgi, $poop );

__END__
$VAR1 = bless( {
                 '.parameters' => [],
                 'use_tempfile' => 1,
                 '.charset' => 'ISO-8859-1',
                 '.fieldnames' => {},
                 'param' => {},
                 'escape' => 1
               }, 'CGI' );
$VAR2 = [];