#!/usr/bin/perl

use strict;
use warnings;

use CGI;

my $cgi = CGI->new();

use Data::Dumper;
print Dumper($cgi);
my $test = { title => $cgi->param('title')};
print Dumper($test);

__END__
$VAR1 = bless( {
                 '.parameters' => [
                                    'title'
                                  ],
                 '.charset' => 'ISO-8859-1',
                 '.fieldnames' => {},
                 'title' => [
                              'hello',
                              'goodbye'
                            ],
                 'escape' => 1
               }, 'CGI' );
Odd number of elements in anonymous hash at hack.pl line 12.
$VAR1 = {
          'title' => 'hello',
          'goodbye' => undef
        };