#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\r\n";
my $file="path/to/page.html";
open(fp, $file) or die "Couldn't open file: $!";

while ( my $output = <fp> ) {
  $output=~s/<[^>]*?>//g;
  $output=~s/&/&amp;/g;
  $output=~s/"/&quot;/g;
  $output=~s/</&lt;/g;
  $output=~s/>/&gt;/g;
  print $output . "\n";
};
close(fp);