#!/usr/bin/perl -w

use warnings;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Parser;
use Data::Dumper;

my $p = HTML::Parser->new(api_version => 3);
my $text = $p->parse_file("../pages/about.html") || die print "$!";

print "Content-type: text/html\n\n";
print Dumper ($text);

print $text."\n";