use CGI;
my $q = new CGI;
my $sessid = $q->cookie('SESSID');

if (!$sessid)
{
	print $q->redirect("http://my.domain.com/loginpage/");
	exit;
}

my $cookie = $q->cookie(-name=>"SESSID", -value=> $sessid, -expires => "+1h");
print $q->header({-type=>"text/html", -charset=>"utf-8", -cookie=>$cookie});

##</code><code>##

http://my.domain.com/cgi-bin/eventedit?year=2007&month=1&day=9