use CGI;
$query = new CGI;
my $cookie = $query->cookie(-name=>'cookie', -value=>'hello', -domain=>'www.cis$
print $query->header(-cookie=>$cookie);

##</code><code>##

#print "Content-type: text/html\n\n";

$query = new CGI;
$cookie = $query->cookie('cookie');

print $query->header();

if ($cookie)
{
#print "Content-type: text/html\n\n";

$query = new CGI;
$cookie = $query->cookie('cookie');

print $query->header();

if ($cookie)
{
print "done";
}
else
{
print "naughty boy!"
#print "#print "<META HTTP-EQUIV="Refresh" CONTENT="0;URL=http://myaddressgoeshere.com/cgi-bin/login.cgi">";
}