#!/usr/local/bin/rebol -cs

REBOL []

print "Content-type: text/html^/"

cgi: system/options/cgi

read-io system/ports/input formdata: make string! 2000 2000
write %output.txt reform [select cgi/other-headers "HTTP_REFERER" formdata]

print {<a href="test.r">link</a><p><pre>}
print probe cgi
print "</pre><p>OK"