#!/usr/bin/perl
# $Header: Penyemakan Ejaan (html2text) $

use integer;
use HTML::Parser;
use CGI;

my $parser = HTML::Parser->new('api_version' => 3,
			       'start_h' => [ \&start, "tagname, attr" ],
			       'end_h' => [ \&end, 'tagname' ],
			       'text_h' => [ \&text, 'dtext' ]);