use CGI, please.

To store...

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.';
[download]

To read...

use CGI;
use strict;

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

print $q->header;
print $cookie_info{id};
[download]

See the CGI docs for more info.

--
Rock is dead. Long live paper and scissors!