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

my ($domain, $name, $value, $expires) = ('65.1.136.248', 'SessionID', $sessionID, '+1Y');
my $cookieheader = new CGI::Cookie(-name => $name,
                                   -value   => $value,
                                   -expires => $expires,
                                   -domain  => $domain) || die;
print header(-cookie=>$cookieheader);
my $badcookie = fetch CGI::Cookie('SessionID');
print $badcookie;