#!/usr/bin/perl

use CGI;

$q = new CGI;

open(INFILE, "<top.html");
$filesize = -s INFILE;
read(INFILE, $wholepage, $filesize);
close(INFILE);

$wholepage =~s/<M//;

print $q->header(-target=>'Top');
print $q->p($wholepage);