my $cookie_jar  = HTTP::Cookies->new( file => 'cookie_jar.dat', autosave => 1 );
my $w           = new WWW::Scripter(    agent => 'Mozilla/5.0 (X11; Linux x86_64; rv:2.0) Gecko/20110411 Firefox/4.0',
                                        cookie_jar => $cookie_jar ) ;
$w->add_header( 'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' );
$w->add_header( 'Accept-Language' => 'en-us,en;q=0.5' );
$w->add_header( 'Accept-Encoding' => 'gzip, deflate' );
$w->add_header( 'Encoding' => 'euc-jp' );
$w->add_header( 'Keep-Alive' => '115' );
$w->add_header( 'Connection' => 'keep-alive' );
$w->add_header( 'Cache-Control' => 'max-age=0' );
$w->add_header( 'Referer' => undef );
$w->use_plugin( 'JavaScript' );
$w->get( $page_url );

##</code><code>##

use LWP::Debug qw(+);