use warnings;
use 5.028;
use WebPerl qw/js js_new/;

my $xhr = js_new('XMLHttpRequest');
$xhr->addEventListener("load", sub {
	say "Loaded! <<<<<",$xhr->{responseText},">>>>>\n";
});
$xhr->open("GET", "http://localhost:5000/");
say "Sending...\n";
$xhr->send();