maybe this way around:

# 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);
}
[download]