use WWW::Scripter qw();
use HTML::Entities qw(decode_entities);
use Encode qw(encode);

my $w = WWW::Scripter->new;
$w->get('file:///tmp/nhg.euc-jp.html');

print encode('EUC-JP', decode_entities($w->content)); # output octets go to STDOUT, encoded as EUC-JP