use warnings;
use strict;
use Data::Dumper;
use WebPerl qw/js/;
my $fetch =<<'__JS__';
var req = new XMLHttpRequest();
req.open('GET', 'https://webperl.zero-g.net/', false);
req.send(null);
if(req.status == 200)
   (req.responseText);
__JS__
print Dumper js($fetch);

##</code><code>##

<script>
var req = new XMLHttpRequest();
req.open('GET', 'http://localhost:5000/emperl.js', false);
req.send(null);
if(req.status == 200)
   alert(req.responseText);

</script>

##</code><code>##

<script type="text/perl">
use warnings;
use strict;
use Data::Dumper;
use WebPerl qw/js/;

my $fetch = << '__JS__' ;
var req = new XMLHttpRequest();
req.open('GET', 'http://localhost:5000/emperl.js', false);
req.send(null);
if(req.status == 200)
   (req.responseText);
__JS__
               
print Dumper js($fetch);
</script>