#!/usr/bin/perl
open(HTML, '<_private/login.htm');
@htmllines = ;
close(HTML);
chop @htmllines;
chop @htmllines;
print "Set-Cookie:id=\n";
print "Set-Cookie:ix=\n";
print "Content-type: text/html\n\n";
foreach $htmlline (@htmllines) {
if ($htmlline =~ ?