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