#!/usr/local/bin/perl
#

$source="index.htm";

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

open (IN, "<$source") ||
  die "Error retrieving homepage source file!";



while ($string=<IN>) {print $string;}