sub handler {
my $r = Apache2::Request->new(shift);
my %in_cookies = Apache2::Cookie->fetch ($r);
my $session = $in_cookies{"ID"} && $in_cookies{"ID"}->value;
...