А ако не искаш да ползваш CGI :

getCookie();
print "Set-Cookie: name=value; path=/ ; more_options ... \n";

.
.
.

sub getCookie {
my $raw_cookie = $ENV{'HTTP_COOKIE'} || $ENV{'COOKIE'};
return () unless ($raw_cookie);

my @cookies = split(/;\s+?/ , $raw_cookie);
foreach my $cookie (@cookies) {
my ($name, $value) = split( /=/, $cookie);
$value =~ s/\W//g ;
$value =~ s/\0//g ;

$COOKIE{$name} = $value ;
}
}

Разбира се това е много общо ....
Ако ти се чете повече по въпроса за Set-Cookie :

Съдържаниет е скрито
Влезте за да го видите