Wie setze ich ein Cookie?

Skript

#! /usr/bin/perl 
use warnings; 
use strict; 
use CGI; 
use CGI::Carp qw(fatalsToBrowser); 
 
my $cgi = CGI::->new(); 
my %cgiParams = $cgi->Vars(); # z.b. parameter auslesen 
 
my $cookie = $cgi->cookie(  
  -name   => 'cookiename', 
  -value    => 'abcdefg', 
  -expires => '+1h', 
  -path     => '/cgi-bin'; 
  -domain => '.mydomain.org' 
); 
print $cgi->header(  
  -type     => 'text/html', 
  -expires => '+1h', 
  -cookie  => $cookie, 
); 
print $cgi->start_html('Cookie setzen'); 
print $cgi->h1('Cookie setzen'); 
# .... 
print $cgi->end_html(); 

Ergänzungen, Kommentare

       ---### Main.??? - 10 Aug 2003 - Wie setze ich ein Cookie?