#! /usr/bin/perl
use warnings;
use strict;
use CGI ();
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

my $cgi = CGI->new();
my $kekswert = $cgi->cookie('keks');

# mehrere cookies setzen
my $cookie1 = $cgi->cookie(-name => 'keks1', -value => '20');
my $cookie2 = $cgi->cookie(-name => 'keks2', -value => 40);

print $cgi->header(
  -type => 'text/html',
  -cookie => [ $cookie1, $cookie2 ],
);

#... usw