#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use CGI;

my $q = CGI->new();

my $cookie = $q->cookie(-name=>'info',-value=>'bar');
print $q->header(-cookie=>$cookie);
print $q->cookie('info'),"\n";
print Dumper($q);
__OUTPUT__
Set-Cookie: info=bar; path=/
Date: Fri, 21 Feb 2003 01:48:32 GMT
Content-Type: text/html; charset=ISO-8859-1


$VAR1 = bless( {
                 '.header_printed' => '1',
                 '.charset' => 'ISO-8859-1',
                 '.parameters' => [],
                 '.fieldnames' => {},
                 '.cookies' => undef
               }, 'CGI' );