Cookie

[Timofey]

видно я не понимаю самого главного, но все же, пытаюсь записать кук введеный из формы,но он выводится на страницу и это логично ведь я посылаю его через заголовок(header),который уже вывел html, как записать это чертов кук введенный из формы?

#!/usr/bin/perl

use CGI::Cookie;
use CGI qw/:standard/;


print header,start_html('cookies'),
start_form,textfield('cook'),submit,end_form,hr,end_html;
$query=new CGI;

$cook1=new CGI::Cookie(-name=>'id',-value=>'artem');

$cook2=new CGI::Cookie
(-name=>'id1',-value=>$query->param('cook');

print header(-cookie=>[$cook1,$cook2]);

%cookies = fetch CGI::Cookie;

foreach $key (keys %cookies)
{
print "$cookies{$key}<br>";
}

[Fouly]

Я твой код не читал но вот, что я тебе скажу ("самое главное"

Ответ сервера содержит заголовок и тело.
Друг от друга они отделяются двумя переносами строки.

Куки надо ставить в заголовок. Значит если ты перед тем как ставить куки напишешь
print "Content-type:text/html\n\n";
или
print "\n\n";
То все, что идет дальше, броузером будет воспринято как тело и будет выведено на страницу.