Select Code to Download

    print "Content-type:  text/html\n";
    print "Set-Cookie: $COOKIE_KEY=$cookie; PATH=$path\n";

    $cookie = cookie (-name => $COOKIE_KEY,
            -value => $cookie,
...
print header(-cookie => $cookie,
-P3P=>"policyref=/w3c/p3p.xml"
);