Так, взял скрипт из примера и немного его переделал:
sub place_cookie {
my ($income_sid) = @_;
#Количество секунд в 30-ти днях
my $d=2592000;
#Английские трехбуквенные обозначения
#дней недели и месяцев
my @weekdays=(\'Sun\',\'Mon\',\'Tue\',\'Wed\',\'Thu\',\'Fri\',\'Sat\');
my @months=(\'Jan\',\'Feb\',\'Mar\',\'Apr\',\'May\',\'Jun\',\'Jul\',\'Aug\',\'Sep\',\'Oct\',\'Nov\',\'Dec\');
my $t=time;
$t+=$d;
#Получаем значение конечных даты и времени в "обычном" виде
my ($SS,$MM,$HH,$DD,$MON,$YY,$WD);
($SS,$MM,$HH,$DD,$MON,$YY,$WD)=gmtime($t);
$YY=$YY+1900;
my $exp_date="$weekdays[$WD], $DD-$months[$MON]-$YY $HH:$MM:$SS GMT";
#Вставляем \'0\' перед числами <10, если они есть
my $z=\'0\';
$exp_date=~s/(\\D)(\\d{1})(\\D)/$1$z$2$3/g;
#my $cookie="sid=$income_sid\\; path=/\\; expires=$exp_date\\;";
my $cookie="sid=$income_sid\\; expires=$exp_date\\;";
print "Content-Type: text/html\\n";
print "Set-Cookie: $cookie\\n\\n";
}
И всё равно не работает...
Вызываю как:
place_cookie($sid);
Пробовал посмотреть через print. $income_sid и $exp_date выводяться отлично. Так почему не ставяться куки?