# untested



my %cookies = fetch CGI::Cookies;

if (exists $cookie{SessionID}) {

   # gotya

   my $cookie = $cookie{SessionID};

   # i once spent two hours debugging before i

   # realized that $cookie isn't a scalar :-/

   use Data::Dumper;

   print Dumper($cookie);

}