#!/usr/bin/perl
use strict;
use warnings;
use JavaScript;
my $rt = JavaScript->create_runtime();
my $cx = $rt->create_context();
$cx->eval(q!
function main() {
return [200, "Ok", ['Content-Type', 'text/html'], function() {
return "Hello World"
}]
}
!);
my $result = $cx->call('main');
print $result->[3]->();