$main::session = new CGI;

$main::cookies = $main::session->cookie(-name => 'NCWiFiTest',
	-domain => 'localhost',
	-path => '/',
	#-expires => '+1d',
	-value => `date`
	);
print $main::session->header(-cookie=>$main::cookies);
#%main::test = fetch CGI::Cookie;
$main::test = "";
print "<hr>\n";
$main::query = new CGI;
$main::test = $main::query->cookie(-name => 'NCWiFiTest');
#$main::cookies->bake;
#print "Content-type: text/html\n\n";
#print "<br>\n";
print "NCWiFiTest --> $main::test\n";