#!/usr/bin/perl


print "Content-Type: text/html\n\n";

#print "here";

#exit;


open(FILE, "index.html");
while (<FILE>) {$thtml .= $_};
close(FILE);

print $thtml;