use Encode::Encoder qw(encoder)
HTML::Entities qw(deocde_entities);
my $w = WWW::Scripter->new;
$w->get("file:///tmp/nhg.euc-jp.html")
decode_entities $w->content; # this is okay I think
my $euc = encoder( $w->content )->euc_jp; # this gives an  error