что с cookies?

Janek 20.01.2010 14:43

print("Content-type: text/html\n\n");
delete $ENV{'SERVER_SOFTWARE'};
delete $ENV{'SERVER_NAME'};
delete $ENV{'GATEWAY_INTERFACE'};
delete $ENV{'REQUEST_METHOD'};

if (length ($ENV{'QUERY_STRING'}) > 0){
      $buffer = $ENV{'QUERY_STRING'};
      @pairs = split(/&/, $buffer);
      foreach $pair (@pairs){
           ($name, $value) = split(/=/, $pair);
           $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
           $in{$name} = $value; 
      }
 }

system("/cgi-bin/parser3/parser3.cgi ".$in{'p3'});

Такой скрипт на Перле работает слишком хорошо. $form работает. Но - что мне тепер делать чтоб $cookies тоже работало?

---