Your question is answered several times on this site. Why not show a little initiative and look for the answer before asking?

.02

cLive ;-)

--

my $expires = "Wed, 09-Nov-2002 00:00:00 GMT";
my $path = "/";
my $domain = "\."."$ENV{'SERVER_NAME'}";

print "Content-type:text/html\n";
print "Set-Cookie: myName=Azuba;";
if ($expires) {print " expires=$expires;";}
if ($path) {print " path=$path;";}
if ($domain) {print " domain=$domain;";}
if ($secure) {print " secure";}
print "\n\n";
[download]

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!