use CGI;
my $query = new CGI;
my $sessionid = $query->cookie('sessionID');

##</code><code>##

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