use strict;
use CGI qw(:all);
use CGI::Cookie;

# insert definition of $sessionID:
my $sessionID = "hello world";
my ($domain, $name, $value, $expires) = ('65.1.136.248', 'SessionID', $sessionID, '+1Y');
my $cookieheader = new CGI::Cookie(-name => $name,
                                   -value   => $value,
                                   -expires => $expires) || die;
# left out domain so it wd work on my web space

print header(-cookie=>$cookieheader);
my $badcookie = fetch CGI::Cookie('SessionID');

# print $badcookie as hashref, not scalar:
print $badcookie->{'SessionID'};