print "Content-type: text/html\n"; print "Set-Cookie: $COOKIE_KEY=$cookie; PATH=$path\n"; #### $cookie = cookie (-name => $COOKIE_KEY, -value => $cookie, -expires => "+1d" ); print header(-cookie => $cookie, -P3P=>"policyref=/w3c/p3p.xml" );