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 8print "HTTP_COOKIE: " . ($ENV{HTTP_COOKIE} || "") . "\n\n"; 9