var leg = {
aa: "Hello from javascript"
}

function to_json() {
   return JSON.stringify(leg);
}

##</code><code>##

use strict;
use warnings;
use WWW::Mechanize::PhantomJS;
my $js = WWW::Mechanize::PhantomJS->new(launch_exe=> 'C:/prog/phantomjs/bin/phantomjs.exe');
$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";

##</code><code>##

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";