1 #!/usr/bin/perl -wT 2 use strict; 3 4 print "Content-Type: text/plain\n"; 5 print "Cache-Control: no-store\n"; 6 print 'Cache-Control: no-cache="set-cookie"' . "\n"; 7 8 # We only map the SET_COOKIE request header to "Set-Cookie" 9 print "Set-Cookie: " . $ENV{"HTTP_SET_COOKIE"} . "\n\n"; 10
