Categoria Dicas CGI/Perl - HTTP Cookies
Há duas maneiras:
1 - Com o módulo CGI:
#!/usr/bin/perl
use CGI; #chamo o módulo CGI
use CGI::Cookie; #dentro dele, chamo o módulo do cookie
$cgi = new CGI;
if ($cgi->cookie(’meu_cookie’)) { #caso o cookie exista, imprimo
print “Content-type: text/html\n\n”; #tipo de documento: HTML
print “Cookie ativo!
“;
print $cgi-cookie(’meu_cookie’); #meu cookie
} else { #se não existe, ele grava
$cookie = $cgi->cookie( -name=>’meu_cookie’, -value=>”Estou gravado!”, -expires=>”+2m”); [...]

