use strict;
use warnings;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($ERROR);
use WWW::Mechanize::Chrome;
my $js = WWW::Mechanize::Chrome->new(report_js_errors=>1);
$js->get_local("hello.js");
#$js->update_html('<script src="hello.js" type="text/javascript"></script>');
#print $js->content;
#my ($val, $type) = $js->eval_in_page('JSON.stringify(window.leg);');
my ($val, $type) = $js->eval_in_page('to_json()');
print "val: $val, type: $type\n";