blob: 965bd9d1f295f10143d7f1e228ae1bc4aa23c780 [file] [log] [blame]
#!/usr/bin/perl -wT
use CGI;
$query = new CGI;
$name = $query->param('name');
print "Content-Type: text/plain\n";
print "Cache-Control: no-store\n";
print 'Cache-Control: no-cache="set-cookie"' . "\n";
# We only map the SET_COOKIE request header to "Set-Cookie"
print "Set-Cookie: TEST=${name}\n\n";