#!/usr/bin/perl -wT
use strict;

# in whitelist
print "content-type: text/plain\n";
print "cache-control: no cache\n";
print "content-language: en\n";
print "expires: Fri, 30 Oct 1998 14:19:41 GMT\n";
print "last-modified: Tue, 15 Nov 1994 12:45:26 GMT\n";
print "pragma: no-cache\n";

# not in whitelist
print "x-webkit: foobar\n";

print "Access-Control-Allow-Origin: *\n\n";

print "PASS: Cross-domain access allowed.\n";