#!/usr/bin/perl

# Gregory Fleischer (gfleischer@gmail.com)

use strict;

print "Content-Type: text/html\r\n",
    "Set-Cookie: auth=true\r\n",
    "\r\n",
    "<html><head><title>auth'd</title><head>" .
    "<body>auth'd<br /><a href='index.html'>home</a></body></html>";

# eof
