use warnings;
use strict;
use JE;

my $j = new JE; 
$j->eval(<<'MYJSCODE');
function foo (x) {
	return x / 10;
}
MYJSCODE

my $rv = 0+$j->{foo}->(50);

print "$rv\n"; # prints "5"