#!/usr/bin/perl 
use strict;
use warnings;

use JSPL;

my $ctx = JSPL->stock_context;

eval {
    $ctx->eval(q{
	say("Hello");
	throw new Error("Whoops!"); // Synthesize a runtime error
	say("Goodby"); // Not reached
    });
};
if($@) {
    print $@->toString(), " ($@)\n";
}