use WWW::Scripter;
use Encode qw(from_to_;
use Jcode;

my $w = new WWW::Scripter();
$w->get( 'www.page.html' );
my $html1 = $w->content();
from_to( $html1, 'utf8', 'euc-jp' ); # No good
my $html2 = Jcode->new( $w->content() )->euc(); # No good but worked with older version of Mechanize.