sub isValid{
	my $Cookie = new CGI::Cookie(-name=>'login', -value=>1, -expires =>'+2m');
	print header(-cookie=>$Cookie),start_html,
		a({-href=>'http://www.mysite.com/devel',-target=>'_top'},div({-align=>'center'},"Activate Session")),
		end_html;
	exit;

}