#!/usr/bin/perl
use CGI;
#deklaracje odpowiedzialne za obsługę ciasteczek:
use CGI qw/:standard/;
use CGI::Cookie;
#jakaś tam treść skryptu…
#właściwa obsługa ciasteczek:
$ciasteczko=new CGI::Cookie(-name => ‘NAZWA’, -value => ‘WARTOŚĆ’);
#przypisanie ciastku nazwy NAZWA i wartości WARTOŚĆ
#do wypisania ciasteczka:
print header (-cookie => [$ciasteczko]);
#jeżeli mamy więcej ciasteczek:
#print header (-cookie => [$ciasteczko1,$ciasteczko2,$inne_ciastka]);
#wrzucenie obsługi cookies po print “Content-type: text/html\n\n”;
#sprawi , że ciasteczka nie będą działać!!
