#!/usr/bin/perl

# package html2text ;

require HTML::Parse;
require HTML::FormatText;

$htmldata = HTML::Parse::parse_htmlfile('testfile.html');
$formatter = new HTML::FormatText;
$textdata = $formatter->format($htmldata);
print $textdata;