use CGI;
use strict;

my $q = new CGI;

my %cookie_info;
$cookie_info{id} = $q->param('id');

my $cookie  = $q->cookie(
    -name => 'cookie_name',
    -value => \%cookie_info,
    -path => '/',
    -expires => '+1h',
);

print $q->header(-cookie => $cookie);
print 'done.';

##</code><code>##

use CGI;
use strict;

my $q = new CGI;
my %cookie_info = $q->cookie('cookie_name');

print $q->header;
print $cookie_info{id};