Perl : Установлены ли Cookies?

[Oaxa]

Есть примерно следующий код:
#!/usr/bin/perl
use strict;
use locale;
use CGI qw(-no_xhtml -nosticky :standard);
...
my $session_cookie = start_session();
print header(-charset=>'windows-1251', -cookie=>$session_cookie);
print start_html(...);
...

В жирной строке я пытаюсь установить куки клиенту, но совершенно непонятно, принял ли он их? Есть какая-то возможность определить, принял ли клиент cookie? :oszone:

[vadimiron]

Проверить, установлена ли такая кука
вот код, который выдерает все куки из ENV

sub getCookies {
# cookies are seperated by a semicolon and a space, this will split
# them and return a hash of cookies
local(@rawCookies) = split (/; /,$ENV{'HTTP_COOKIE'});
local(%cookies);

foreach(@rawCookies){
($key, $val) = split (/=/,$_);
$cookies{$key} = $val;
}

return %cookies;
}

Я сам в ФПЕРЛ не разбираюсь, надеюсь, что помог :)