use WWW::Scripter qw();
use HTML::Entities qw(decode_entities);
my $w = WWW::Scripter->new;
$w->get('file:///tmp/nhg.euc-jp.html');
decode_entities $w->content; # returns a Perl string, use Encode::encode to prepare it for output.