que te parecen estas:
#- Set Cookie -----------------------------------------------------------------#
sub setCookie {
local($name, $value, $expiration, $path, $domain) = @_;
print "Set-Cookie: ";
print "$name=$value; expires=$expiration; path=$path; domain=$domain";
print ";$secure" if defined($secure);
print "\n";
}
#------------------------------------------------------------------------------#
#- get Cookies from ENV --------------------------------------------------#
sub getCookies {
my(%cookies);
foreach (split(/;/,$ENV{'HTTP_COOKIE'})){
my($key)=split(/=/,$_);
$cookies{$key}=substr($_, index($_,"=")+1);
}
return(%cookies);
}
#------------------------------------------------------------------------------#
saludos!...
--
Oscar Américo Sosa de la Cerda
[email protected]
<a href="http://www.sysmakers.com" target="_blank">Sys Makers Dot Com</a>
Develop it!