#!/usr/bin/perl -wT
use strict;
print "Content-Type: text/html\r\n";
print "Set-Cookie: WK-websocket-test=1\r\n";
print "Set-Cookie: WK-websocket-test-httponly=1; HttpOnly\r\n";
print "\r\n";
print <
Test WebSocket sends HttpOnly cookies.
On success, you will see a series of "PASS" messages, followed by "TEST COMPLETE".
HTML