use CGI qw/:standard/;
use CGI::Cookie;
my %cookies = fetch CGI::Cookie;
my $sessionid = $cookies{'sessionID'}->value;