Added patch for Emscripten 1.39.16 (closes #16 )

Thanks @reneeb!
Added more info to an error message
39 changed files with 2249 additions and 123 deletions
--- a/.gitattributes
+++ b/.gitattributes
@ -0,0 +1,4 @@
+# See http://bitbucket.org/haukex/htools/src/HEAD/htmlrescache
+# Set up via: htmlrescache -cweb/_cache init
+/web/*.html	filter=htmlrescache
+/web/**/*.html	filter=htmlrescache
--- a/.gitignore
+++ b/.gitignore
@ -4,7 +4,10 @@
 /web/emperl.js
 /web/emperl.wasm
 /web/emperl.data
-/web/jquery*.js
-/web/codemirror*
-/web/normalize.css
+/web/_cache/
 /pages/
+/wiki/
+# For experimental P6 support:
+/web/perl6.js
+/web/6demo.html
+/web/test6.html
--- a/Changes.md
+++ b/Changes.md
@ -3,14 +3,35 @@ WebPerl Changelog
 =================


+2019-08-03: v0.11-beta
+----------------------
+
+- Updated for Emscripten 1.38.31 / latest Fastcomp (1.38.40) and Perl v5.30.0
+
+
+2019-03-03: v0.09-beta
+----------------------
+
+- Updated for Emscripten 1.38.28 and Perl v5.28.1
+- Added experimental Perl 6 support
+- Added modules Future, Digest::MD5, and Digest::SHA
+- Added Perl.exitStatus
+- Updated regex_tester.html
+- Added "Code Demo Editor" in web/democode/
+- Added "cpanfile"s for dependencies
+- Minor fixes and updates to build.pl
+
+
 2018-09-04: v0.07-beta
 ----------------------
+
 - Updated regex_tester.html (improvements and bugfixes)
 - Added WebPerl::JSObject::jscode()


 2018-09-02: v0.05-beta
 ----------------------
+
 - Added Perl.addStateChangeListener and deprecated Perl.stateChanged
 - Added WebPerl::js_new()
 - Added regex_tester.html
--- a/README.md
+++ b/README.md
@ -13,6 +13,12 @@ Please see the documentation on the main site:
 As well as the
 [GitHub Wiki](https://github.com/haukex/webperl/wiki).

+You can also check out all of the documentation into subdirectories
+of this project, for example:
+
+	$ git clone --branch gh-pages https://github.com/haukex/webperl.git pages
+	$ git clone https://github.com/haukex/webperl.wiki.git wiki
+

 Author, Copyright, and License
 ==============================
--- a/ToDo.md
+++ b/ToDo.md
@ -1,29 +0,0 @@
-
-WebPerl TODOs
-=============
-
-<http://webperl.zero-g.net>
-
-1. Documentation (Website)
-	
-	- Check if intra-page links work
-
-2. Testing
-	
-	- Continue work on `WebPerl.t`
-		- More tests for Unicode support (Perl/JS interface, Perl.eval(), plus Emscripten's virtual FS)
-	- Focus on getting the tests running in the browser instead of node.js
-	- How to best package tests?
-		- If possible, a separate bundle, so that it can be loaded optionally and we don't need to rebuild
-		- How does `make test` find and handle all the various modules' `t`s?
-	- How to best disable individual tests that we know won't work? (qx etc.)
-	- How to handle the many tests that call an external Perl?
-		- patching t/test.pl's runperl() seems easiest at the moment, and we can use the iframe method from the IDE
-
-3. Misc
-
-	- Test if a CDN would work
-	- Perhaps create a CPAN Bundle:: module or similar for `build.pl` deps?
-
-See also: "TODO" tags in code (use `findtodo.sh`)
-
--- a/build/build.pl
+++ b/build/build.pl
@ -92,8 +92,18 @@ my $needs_reconfig = !!$opts{reconfig};
 	# Emscripten's fork() (and system()) stubs return EAGAIN, meaning "Resource temporarily unavailable".
 	# So perl will wait 5 seconds and try again, which is not helpful to us, since Emscripten doesn't support those functions at all.
 	# This patch fixes that on the Emscripten side, so the stubs return ENOTSUP.
+	# first, we need to take a guess which version of the patch to apply.
+	my $libraryjs = file($ENV{EMSCRIPTEN}, 'src', 'library.js')->slurp;
+	my $patchf;
+	if ( $libraryjs=~/\b\Q___setErrNo(ERRNO_CODES.\E(EAGAIN|ENOTSUP)\b/ )
+		{ $patchf = 'emscripten_1.38.10_eagain.patch' }
+	elsif ( $libraryjs=~/no shell available\s+setErrNo\Q({{{ cDefine('EAGAIN') }}})\E/ )
+		{ $patchf = 'emscripten_1.39.16_eagain.patch' }
+	elsif ( $libraryjs=~/\b\QcDefine('EAGAIN')\E/ ) # note that this appears in 1.38.1* versions too
+		{ $patchf = 'emscripten_1.38.28_eagain.patch' }
+	else { die "Could not figure out which library.js patch to use" }
 	#TODO Later: we should probably verify the Emscripten version too, and in the future we may need different patches for different versions
-	if ( try_patch_file( file($FindBin::Bin,'emscripten_1.38.10_eagain.patch') ) ) {
+	if ( try_patch_file( file($FindBin::Bin,$patchf) ) ) {
 		say STDERR "# Emscripten was newly patched, forcing a rebuild";
 		# not sure if the following is needed, but playing it safe:
 		run 'emcc', '--clear-cache';  # force Emscripten to rebuild libs (takes a bit of time)
@ -112,19 +122,24 @@ if (!-e $C{PERLSRCDIR}) {
 }
 GITSTUFF: {
 	my $d = pushd($C{PERLSRCDIR});
+	my $remhead;
 	eval {
 		git 'fetch';
+		$remhead = git 'log', '-1', '--format=%h', 'origin/'.$C{PERL_BRANCH}, {chomp=>1,show_cmd=>$VERBOSE};
 	1 } or do {
 		warn $@;
 		# Maybe we don't have network connectivity
-		if (prompt("Whoops, 'git fetch' failed. Continue anyway? [Yn]","y")=~/^\s*y/i)
+		if (prompt("Whoops, 'git' failed. Continue anyway? [Yn]","y")=~/^\s*y/i)
 			{ last GITSTUFF }
 		else { die "git fetch failed, aborting" }
 	};
 	my $myhead = git 'log', '-1', '--format=%h', $C{PERL_BRANCH}, {chomp=>1,show_cmd=>$VERBOSE};
-	my $remhead = git 'log', '-1', '--format=%h', 'origin/'.$C{PERL_BRANCH}, {chomp=>1,show_cmd=>$VERBOSE};
 	say STDERR "# Local branch is at $myhead, remote is $remhead";
-	if ($myhead ne $remhead) { #TODO Later: This should also check which git commit is newer!
+	if ($myhead ne $remhead) {
+		git 'merge-base', '--is-ancestor', $remhead, $myhead, {allow_exit=>[0,1]};
+		if ($?==0) {
+			say STDERR "# However, it looks like $myhead is newer than $remhead, won't ask for update";
+			last GITSTUFF }
 		if (prompt("Would you like to update? WARNING: Unsaved local changes may be lost! [Yn]","y")=~/^\s*y/i) {
 			eval {
 				if ($C{CLOBBER_BRANCH}) {
@ -148,6 +163,7 @@ GITSTUFF: {
 		unless $tags=~/^\Q$C{PERLVER}\E$/m;
 	my $branches = git 'branch', '--list', {show_cmd=>$VERBOSE};
 	die "could not find branch '$C{PERL_BRANCH}', is this the right repository?"
+		. " (or the WebPerl author forgot to push tags to the emperl5 repo)"
 		unless $branches=~/^\*?\s*\b\Q$C{PERL_BRANCH}\E$/m;
 	say STDERR "# Found tag '$C{PERLVER}' and branch '$C{PERL_BRANCH}' in $C{PERLSRCDIR}";
 }
@ -219,8 +235,11 @@ if (-e $config_sh) {
 	if ($perl_mtime>$our_mtime)
 		{ say STDERR "# config.sh is newer than emperl_config.sh" }
 	else {
-		say STDERR "# config.sh is OLDER than emperl_config.sh, forcing a reconfig";
-		$needs_reconfig=1 }
+		say STDERR "# config.sh is OLDER than emperl_config.sh";
+		exit 1 if prompt("Did you remember to run '. emperl_config.sh'? [yN]","n")!~/^\s*y/i;
+		say STDERR "# ok, forcing a reconfig";
+		$needs_reconfig=1;
+	}
 }

 if ($needs_reconfig) {
@ -357,10 +376,10 @@ if ($needs_reconfig || !-e $destdir || $opts{remakeout}) {
 	$destdir->subdir('dev')->mkpath(1);
 	# we make them hard links so that edits to WebPerl.pm don't require a full
 	# rebuild of the output directory (a rebuild of emperl.js is enough)
-	safelink( $C{PERLSRCDIR}->file('ext','WebPerl','WebPerl.t'),
+	safelink( $C{PERLSRCDIR}->file('ext','WebPerl','t','WebPerl.t'),
 		$destdir->file('dev','WebPerl.t') );
-	safelink( $C{PERLSRCDIR}->file('ext','WebPerl','WebPerl.pm'),
-		$destdir->file('lib','5.28.0','wasm','WebPerl.pm') ); #TODO: should figure this directory out dynamically
+	safelink( $C{PERLSRCDIR}->file('ext','WebPerl','lib','WebPerl.pm'),
+		$destdir->file('lib',$C{PERLVER}=~s/^v(?=5)//r,'wasm','WebPerl.pm') );
 	
 	#TODO Later: Provide an easy way for users to add files to the virtual file system
 	
@ -371,11 +390,12 @@ if ($needs_reconfig || !-e $destdir || $opts{remakeout}) {

 {
 	say STDERR "# Making emperl.js...";
-	if ($opts{forceemperl} || $opts{remakeout})
-		{ $C{PERLSRCDIR}->file('emperl.js')->remove
-			or die "failed to delete emperl.js" }
+	my $targ = $C{PERLSRCDIR}->file('emperl.js');
+	if ( ($opts{forceemperl} || $opts{remakeout}) && -e $targ )
+		{ $targ->remove or die "failed to delete $targ: $!" }
 	my $d = pushd($C{PERLSRCDIR});
 	emmake 'make', 'emperl.js';
+	die "Target file not generated?" unless -e $targ;
 	say STDERR "# Done making emperl.js";
 }
 for my $f (qw/ emperl.js emperl.wasm emperl.data /) {
@ -393,7 +413,7 @@ if (my $dist = $opts{dist}) {
 	my $zip = Archive::Zip->new();
 	$zip->addTree($basedir->subdir('web').'', dir($dist).'');
 	$zip->addFile($basedir->file($_).'', dir($dist)->file($_).'') for
-		qw/ README.md LICENSE_artistic.txt LICENSE_gpl.txt /;
+		qw/ README.md LICENSE_artistic.txt LICENSE_gpl.txt cpanfile /;
 	$zip->writeToFileNamed("$zipfn") == AZ_OK or die "$zipfn write error";
 	say STDERR "# Wrote to $zipfn:";
 	my $unzip = Archive::Zip->new("$zipfn");
--- a/build/cpanfile
+++ b/build/cpanfile
@ -0,0 +1,15 @@
+
+# Install the dependencies for "build" via:
+# $ cpanm --installdeps .
+
+requires 'Data::Dump';
+requires 'Path::Class';
+requires 'IPC::Run3::Shell', '0.56';
+requires 'URI';
+requires 'Net::SSLeay', 1.49;
+requires 'IO::Socket::SSL', '1.56';
+requires 'Cpanel::JSON::XS';
+requires 'File::Copy::Recursive';
+requires 'File::Replace', '0.08';
+requires 'Pod::Strip';
+requires 'Archive::Zip';
--- a/build/emperl_config.sh
+++ b/build/emperl_config.sh
@ -9,7 +9,7 @@

 # A whitespace-separated list of modules to download and add to the build.
 # Note: Cpanel::JSON::XS is required for WebPerl!
-export EMPERL_EXTENSIONS="Cpanel::JSON::XS Devel::StackTrace"
+export EMPERL_EXTENSIONS="Cpanel::JSON::XS Devel::StackTrace Future"

 # Modules from the above list that have XS code need to be linked statically.
 # Add them here, separated by whitespace (see also the "static_ext" variable
@ -27,15 +27,20 @@ export EMPERL_OUTPUTDIR="$BASEDIR/work/outputperl"

 # Don't edit the following options unless you know what you're doing!
 # Note to self: In build.pl, we take advantage of the fact that on Perls >=v5.10.0, "$^V" is the same as the tag name.
-export EMPERL_PERLVER="v5.28.0"
+export EMPERL_PERLVER="v5.30.0"
 export EMPERL_PREFIX="/opt/perl"
+# Note: strace shows this is how file_packager.py is called: ["/usr/bin/python", "/home/haukex/emsdk/emscripten/1.38.28/tools/file_packager.py", "emperl.data", "--from-emcc", "--export-name=Module", "--preload", "/home/haukex/code/webperl/work/outputperl/opt/perl@/opt/perl", "--no-heap-copy"]
 export EMPERL_PRELOAD_FILE="$EMPERL_OUTPUTDIR$EMPERL_PREFIX@$EMPERL_PREFIX"
 export EMPERL_OPTIMIZ="-O2"
-export EMPERL_LINK_FLAGS="--pre-js common_preamble.js -s EXPORTED_FUNCTIONS=['_main','_emperl_end_perl','_Perl_call_sv','_Perl_call_pv','_Perl_call_method','_Perl_call_argv','_Perl_eval_pv','_Perl_eval_sv','_webperl_eval_perl'] -s EXTRA_EXPORTED_RUNTIME_METHODS=['ccall','cwrap']"
+# Note: We explicitly disable ERROR_ON_UNDEFINED_SYMBOLS because it was enabled by default in Emscripten 1.38.13.
+#TODO Later: Why does --no-heap-copy not get rid of the "in memory growth we are forced to copy it again" assertion warning? (https://github.com/emscripten-core/emscripten/commit/ec764ace634f13bab5ae932912da53fe93ee1b69)
+export EMPERL_LINK_FLAGS="--pre-js common_preamble.js --no-heap-copy -s ERROR_ON_UNDEFINED_SYMBOLS=0 -s EXPORTED_FUNCTIONS=['_main','_emperl_end_perl','_Perl_call_sv','_Perl_call_pv','_Perl_call_method','_Perl_call_argv','_Perl_eval_pv','_Perl_eval_sv','_webperl_eval_perl'] -s EXTRA_EXPORTED_RUNTIME_METHODS=['ccall','cwrap']"
+
+export EMPERL_DEBUG_FLAGS=""
+#export EMPERL_DEBUG_FLAGS="-s ASSERTIONS=2 -s STACK_OVERFLOW_CHECK=2"
 # Note: not including "-s SAFE_HEAP=1" in the debug flags because we're building to WebAssembly, which doesn't require alignment
 #TODO Later: Can some of the SAFE_HEAP functionality (null pointer access I think?) be replaced by the WASM error traps?
 # http://kripken.github.io/emscripten-site/docs/compiling/WebAssembly.html#binaryen-codegen-options
-export EMPERL_DEBUG_FLAGS="-s ASSERTIONS=2 -s STACK_OVERFLOW_CHECK=2"

 # Location and branch of the perl git repository that contains the emperl branch
 export EMPERL_PERL_REPO="https://github.com/haukex/emperl5.git"
--- a/build/emscripten_1.38.28_eagain.patch
+++ b/build/emscripten_1.38.28_eagain.patch
@ -0,0 +1,20 @@
+--- library.js.orig	2019-03-02 16:08:24.404047130 +0100
+++ library.js	2019-03-02 16:19:30.588047130 +0100
+@@ -291,7 +291,7 @@
+     // pid_t fork(void);
+     // http://pubs.opengroup.org/onlinepubs/000095399/functions/fork.html
+     // We don't support multiple processes.
+-    ___setErrNo({{{ cDefine('EAGAIN') }}});
+    ___setErrNo({{{ cDefine('ENOTSUP') }}});
+     return -1;
+   },
+   vfork: 'fork',
+@@ -817,7 +817,7 @@
+     // int system(const char *command);
+     // http://pubs.opengroup.org/onlinepubs/000095399/functions/system.html
+     // Can't call external programs.
+-    ___setErrNo({{{ cDefine('EAGAIN') }}});
+    ___setErrNo({{{ cDefine('ENOTSUP') }}});
+     return -1;
+   },
+ 
--- a/build/emscripten_1.39.16_eagain.patch
+++ b/build/emscripten_1.39.16_eagain.patch
@ -0,0 +1,19 @@
+--- library.js.orig     2020-05-18 17:14:18.682328912 +0200
+++ library.js  2020-05-18 17:14:48.366639562 +0200
+@@ -271,7 +271,7 @@
+     // pid_t fork(void);
+     // http://pubs.opengroup.org/onlinepubs/000095399/functions/fork.html
+     // We don't support multiple processes.
+-    setErrNo({{{ cDefine('EAGAIN') }}});
+    setErrNo({{{ cDefine('ENOTSUP') }}});
+     return -1;
+   },
+   vfork: 'fork',
+@@ -696,7 +696,7 @@
+     // http://pubs.opengroup.org/onlinepubs/000095399/functions/system.html
+     // Can't call external programs.
+     if (!command) return 0; // no shell available
+-    setErrNo({{{ cDefine('EAGAIN') }}});
+    setErrNo({{{ cDefine('ENOTSUP') }}});
+     return -1;
+   },
--- a/8
+++ b/8
@ -0,0 +1,8 @@
+
+# Install the dependencies for "web" via:
+# $ cpanm --installdeps .
+
+requires 'Cpanel::JSON::XS';
+requires 'Plack';
+requires 'Plack::Middleware::CrossOrigin';
+requires 'Plack::Middleware::Auth::Digest';
--- a/experiments/cpanfile
+++ b/experiments/cpanfile
@ -0,0 +1,8 @@
+
+# Install the dependencies for "experiments" via:
+# $ cpanm --installdeps .
+
+requires 'Data::Dump';
+requires 'Graph';
+requires 'MetaCPAN::Client';
+requires 'Path::Class';
--- a/experiments/gui_basic/.gitignore
+++ b/experiments/gui_basic/.gitignore
@ -0,0 +1,5 @@
+/database.db
+/web/webperl.js
+/web/emperl.*
+/gui_basic
+/gui_basic.exe
--- a/experiments/gui_basic/README.md
+++ b/experiments/gui_basic/README.md
@ -0,0 +1,50 @@
+
+WebPerl Basic GUI Example
+=========================
+
+This is a demo of a very basic GUI using WebPerl. It consists of a
+local web server, which includes code to access an SQLite database,
+and this web server also serves up WebPerl code to a browser, where
+the GUI is implemented as HTML with Perl.
+
+To get this to work, you will need to copy the `webperl.js` and the
+three `emperl.*` files from the main `web` directory to the `web`
+subdirectory in this project.
+
+Note that this should not be considered production-ready, as there
+are several key features missing, such as HTTPS or access control.
+
+Also, a limitation is that the server does not know when the browser
+window is closed, so it must be stopped manually.
+
+You can pack this application into a single executable using:
+
+	DOING_PAR_PACKER=1 pp -o gui_basic -z 9 -x -a gui_basic_app.psgi -a web gui_basic.pl
+
+Note: I'm not yet sure why, but sometimes this fails with errors such
+as *"error extracting info from -c/-x file"*, in that case just try
+the above command again.
+
+
+Author, Copyright, and License
+==============================
+
+**WebPerl - <http://webperl.zero-g.net>**
+
+Copyright (c) 2019 Hauke Daempfling (haukex@zero-g.net)
+at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
+Berlin, Germany, <http://www.igb-berlin.de>
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl 5 itself: either the GNU General Public
+License as published by the Free Software Foundation (either version 1,
+or, at your option, any later version), or the "Artistic License" which
+comes with Perl 5.
+
+This program is distributed in the hope that it will be useful, but
+**WITHOUT ANY WARRANTY**; without even the implied warranty of
+**MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE**.
+See the licenses for details.
+
+You should have received a copy of the licenses along with this program.
+If not, see <http://perldoc.perl.org/index-licence.html>.
--- a/experiments/gui_basic/gui_basic.pl
+++ b/experiments/gui_basic/gui_basic.pl
@ -0,0 +1,50 @@
+#!/usr/bin/env perl
+use warnings;
+use 5.018;
+use FindBin;
+use File::Spec::Functions qw/catdir/;
+use Plack::Runner ();
+use Starman ();
+use Browser::Open qw/open_browser/;
+
+# This just serves up gui_basic_app.psgi in the Starman web server.
+# You can also say "plackup gui_basic_app.psgi" instead.
+
+BEGIN {
+	my $dir = $ENV{PAR_TEMP} ? catdir($ENV{PAR_TEMP},'inc') : $FindBin::Bin;
+	chdir $dir or die "chdir $dir: $!";
+}
+
+my $SERV_PORT = 5000;
+my $THE_APP = 'gui_basic_app.psgi';
+
+# AFAICT, both Plack::Runner->new(@args) and ->parse_options(@argv) set
+# options, and these options are shared between "Starman::Server"
+# (documented in "starman") and "Plack::Runner" (documented in "plackup").
+my @args = (
+	server => 'Starman', loader => 'Delayed', env => 'development',
+	version_cb => sub { print "Starman $Starman::VERSION\n" } );
+my @argv = ( '--listen', "localhost:$SERV_PORT", $THE_APP );
+my $runner = Plack::Runner->new(@args);
+$runner->parse_options(@argv);
+$runner->set_options(argv => \@argv);
+die "loader shouldn't be Restarter" if $runner->{loader} eq 'Restarter';
+
+if ($ENV{DOING_PAR_PACKER}) {
+	require Plack::Util;
+	Plack::Util::load_psgi($THE_APP); # for dependency resolution
+	# arrange to have the server shut down in a few moments
+	my $procpid = $$;
+	my $pid = fork();
+	if (!defined $pid) { die "fork failed" }
+	elsif ($pid==0) { sleep 5; kill 'INT', $procpid; exit; } # child
+	print "====> Please wait a few seconds...\n";
+}
+else {
+	# There's a small chance here that the browser could open before the server
+	# starts up. In that case, a reload of the browser window is needed.
+	print "Attempting to open in browser: http://localhost:$SERV_PORT/\n";
+	open_browser("http://localhost:$SERV_PORT/");
+}
+
+$runner->run;
--- a/experiments/gui_basic/gui_basic_app.psgi
+++ b/experiments/gui_basic/gui_basic_app.psgi
@ -0,0 +1,67 @@
+#!/usr/bin/env perl
+use warnings;
+use 5.018;
+use Plack::MIME;
+use Plack::Builder qw/builder enable mount/;
+use Plack::Request ();
+use Plack::Response (); # declare compile-time dependency
+use Cpanel::JSON::XS qw/decode_json encode_json/;
+use DBI ();
+use DBD::SQLite (); # declare compile-time dependency
+use HTML::Tiny ();
+
+# This is the server-side code.
+
+# note we rely on gui_basic.pl to set the working directory correctly
+my $SERV_ROOT = 'web';
+my $DB_FILE = 'database.db';
+
+my $dbh = DBI->connect("DBI:SQLite:dbname=$DB_FILE",
+	undef, undef, { RaiseError=>1, AutoCommit=>1 });
+
+$dbh->do(q{ CREATE TABLE IF NOT EXISTS FooBar (
+	foo VARCHAR(255), bar VARCHAR(255) ) });
+
+# This sends HTML to the browser, but we could also send JSON
+# and build the HTML table dynamically in the browser.
+my $app_select = sub {
+	state $html = HTML::Tiny->new;
+	state $sth_select = $dbh->prepare(q{ SELECT rowid,foo,bar FROM FooBar });
+	$sth_select->execute;
+	my $data = $sth_select->fetchall_arrayref;
+	my $out = $html->table(
+		[ \'tr',
+			[ \'th', 'rowid', 'foo', 'bar' ],
+			map { [ \'td', @$_ ] } @$data
+		] );
+	return [ 200, [ "Content-Type"=>"text/html" ], [ $out ] ];
+};
+
+# This is an example of one way to communicate with JSON.
+my $app_insert = sub {
+	my $req = Plack::Request->new(shift);
+	state $sth_insert = $dbh->prepare(q{ INSERT INTO FooBar (foo,bar) VALUES (?,?) });
+	my $rv = eval { # catch errors and return as 500 Server Error
+		my $content = decode_json( $req->content );
+		$sth_insert->execute($content->{foo}, $content->{bar});
+		{ ok=>1 }; # return value from eval, sent to client as JSON
+	}; my $e = $@||'unknown error';
+	my $res = $req->new_response($rv ? 200 : 500);
+	$res->content_type($rv ? 'application/json' : 'text/plain');
+	$res->body($rv ? encode_json($rv) : 'Server Error: '.$e);
+	return $res->finalize;
+};
+
+Plack::MIME->add_type(".js"   => "application/javascript");
+Plack::MIME->add_type(".data" => "application/octet-stream");
+Plack::MIME->add_type(".mem"  => "application/octet-stream");
+Plack::MIME->add_type(".wasm" => "application/wasm");
+
+builder {
+	enable 'SimpleLogger';
+	enable 'Static',
+		path => sub { s#\A/\z#/index.html#; /\.(?:html?|js|css|data|mem|wasm|pl)\z/i },
+		root => $SERV_ROOT;
+	mount '/select' => $app_select;
+	mount '/insert' => $app_insert;
+}
--- a/experiments/gui_basic/web/index.html
+++ b/experiments/gui_basic/web/index.html
@ -0,0 +1,32 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+	<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+	<title>WebPerl GUI Demo</title>
+	<script src="webperl.js"></script>
+	<script type="text/perl" src="web.pl"></script>
+</head>
+<body style="font-family:sans-serif;">
+<h1>WebPerl GUI Demo</h1>
+
+<div id="datatable"><i>No data loaded yet...</i></div>
+<div><button id="reload_data">Reload Data</button></div>
+
+<div style="margin-top:1em">
+	<div>
+		<label for="input_foo">foo</label>
+		<input type="text" id="input_foo">
+	</div>
+	<div>
+		<label for="input_bar">bar</label>
+		<input type="text" id="input_bar">
+	</div>
+	<div>
+		<button id="do_insert">Insert Data</button>
+	</div>
+</div>
+
+<p>Powered by <a href="http://webperl.zero-g.net" target="_blank">WebPerl</a> (beta)</p>
+
+</body>
+</html>
--- a/experiments/gui_basic/web/web.pl
+++ b/experiments/gui_basic/web/web.pl
@ -0,0 +1,69 @@
+#!perl
+use warnings;
+use 5.028;
+use WebPerl qw/js js_new sub1 encode_json/;
+
+# This is the code that WebPerl runs in the browser. It is loaded by index.html.
+
+sub do_xhr {
+	my %args = @_;
+	die "must specify a url" unless $args{url};
+	$args{fail} ||= sub { js('window')->alert(shift) };
+	my $xhr = js_new('XMLHttpRequest');
+	$xhr->addEventListener("error", sub1 {
+			$args{fail}->("XHR Error on $args{url}: ".(shift->{textContent}||"unknown"));
+			return;
+		});
+	$xhr->addEventListener("load", sub1 {
+			if ($xhr->{status}==200) {
+				$args{done}->($xhr->{response}) if $args{done};
+			}
+			else {
+				$args{fail}->("XHR Error on $args{url}: ".$xhr->{status}." ".$xhr->{statusText});
+			}
+			return;
+		});
+	$xhr->addEventListener("loadend", sub1 {
+			$args{always}->() if $args{always};
+			return;
+		});
+	# when given data, default to POST (JSON), otherwise GET
+	if ($args{data}) {
+		$xhr->open($args{method}||'POST', $args{url});
+		$xhr->setRequestHeader('Content-Type', 'application/json');
+		$xhr->send(encode_json($args{data}));
+	}
+	else {
+		$xhr->open($args{method}||'GET', $args{url});
+		$xhr->send();
+	}
+	return;
+}
+
+my $document = js('document');
+
+my $btn_reload = $document->getElementById('reload_data');
+sub do_reload {
+	state $dtbl = $document->getElementById('datatable');
+	$btn_reload->{disabled} = 1;
+	do_xhr(url => 'select',
+		done   => sub { $dtbl->{innerHTML} = shift; },
+		always => sub { $btn_reload->{disabled} = 0; } );
+	return;
+}
+$btn_reload->addEventListener("click", \&do_reload);
+
+my $btn_insert = $document->getElementById('do_insert');
+sub do_insert {
+	state $txt_foo = $document->getElementById('input_foo');
+	state $txt_bar = $document->getElementById('input_bar');
+	$btn_insert->{disabled} = 1;
+	do_xhr(url => 'insert',
+		data => { foo=>$txt_foo->{value}, bar=>$txt_bar->{value} },
+		always => sub { $btn_insert->{disabled} = 0; do_reload; } );
+	return;
+}
+$btn_insert->addEventListener("click", \&do_insert);
+
+do_reload; # initial load
+
--- a/experiments/gui_sweet/.gitignore
+++ b/experiments/gui_sweet/.gitignore
@ -0,0 +1,4 @@
+/public/webperl.js
+/public/emperl.*
+/gui_sweet
+/gui_sweet.exe
--- a/experiments/gui_sweet/README.md
+++ b/experiments/gui_sweet/README.md
@ -0,0 +1,44 @@
+
+WebPerl Advanced GUI Example
+============================
+
+Similar to the "WebPerl Basic GUI Example", this is a demo of a GUI
+using WebPerl, but using [Bootstrap](https://getbootstrap.com/)
+and [jQuery](https://jquery.com/) instead of plain JavaScript,
+and [Mojolicious](https://mojolicious.org/) instead of plain Plack.
+
+To get this to work, you will need to copy the `webperl.js` and the
+three `emperl.*` files from the main `web` directory to the `public`
+subdirectory in this project.
+
+Also, a limitation is that the server does not know when the browser
+window is closed, so it must be stopped manually.
+
+You can pack this application into a single executable using `do_pp.pl`.
+Note: I'm not yet sure why, but sometimes this fails with errors such
+as *"error extracting info from -c/-x file"*, in that case just try
+the command again.
+
+
+Author, Copyright, and License
+==============================
+
+**WebPerl - <http://webperl.zero-g.net>**
+
+Copyright (c) 2019 Hauke Daempfling (haukex@zero-g.net)
+at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
+Berlin, Germany, <http://www.igb-berlin.de>
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl 5 itself: either the GNU General Public
+License as published by the Free Software Foundation (either version 1,
+or, at your option, any later version), or the "Artistic License" which
+comes with Perl 5.
+
+This program is distributed in the hope that it will be useful, but
+**WITHOUT ANY WARRANTY**; without even the implied warranty of
+**MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE**.
+See the licenses for details.
+
+You should have received a copy of the licenses along with this program.
+If not, see <http://perldoc.perl.org/index-licence.html>.
--- a/experiments/gui_sweet/do_pp.pl
+++ b/experiments/gui_sweet/do_pp.pl
@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+use File::Basename qw/fileparse/;
+use File::Spec::Functions qw/catfile/;
+use File::Temp qw/tempfile/;
+
+# this attempts to locate Mojo's default server.crt/server.key files
+chomp( my $dir = `perldoc -l Mojo::IOLoop::Server` );
+die "perldoc -l failed, \$?=$?" if $? || !-e $dir;
+(undef, $dir) = fileparse($dir);
+
+# set up a file for pp's -A switch
+my ($tfh, $tfn) = tempfile(UNLINK=>1);
+print {$tfh} catfile($dir,'resources','server.crt'),";server.crt\n";
+print {$tfh} catfile($dir,'resources','server.key'),";server.key\n";
+close $tfh;
+
+my @args = (qw/ -a public -a templates -A /, $tfn);
+
+local $ENV{DOING_PAR_PACKER}=1;
+system(qw/ pp -o gui_sweet -z 9 -x /,@args,'gui_sweet.pl')==0
+	or die "pp failed, \$?=$?";
--- a/experiments/gui_sweet/gui_sweet.pl
+++ b/experiments/gui_sweet/gui_sweet.pl
@ -0,0 +1,77 @@
+#!/usr/bin/env perl
+use Mojolicious::Lite;
+use Mojo::Util qw/md5_sum/;
+use FindBin;
+use File::Spec::Functions qw/catdir/;
+use Browser::Open qw/open_browser/;
+
+# This is the server-side code.
+
+my $SERV_PORT = 3000;
+
+my ($SSLCERTS,$HOMEDIR);
+BEGIN {
+	$HOMEDIR = $ENV{PAR_TEMP} ? catdir($ENV{PAR_TEMP},'inc') : $FindBin::Bin;
+	chdir $HOMEDIR or die "chdir $HOMEDIR: $!";
+	# do_pp.pl pulls the default Mojo SSL certs into the archive for us
+	$SSLCERTS = $ENV{PAR_TEMP} ? '?cert=./server.crt&key=./server.key' : '';
+}
+
+app->static->paths([catdir($HOMEDIR,'public')]);
+app->renderer->paths([catdir($HOMEDIR,'templates')]);
+app->secrets(['Hello, Perl World!']);
+app->types->type(js   => "application/javascript");
+app->types->type(data => "application/octet-stream");
+app->types->type(mem  => "application/octet-stream");
+app->types->type(wasm => "application/wasm");
+
+# Authentication and browser-launching stuff (optional)
+my $TOKEN = md5_sum(rand(1e15).time);
+hook before_server_start => sub {
+	my ($server, $app) = @_;
+	my @urls = map {Mojo::URL->new($_)->query(token=>$TOKEN)} @{$server->listen};
+	my $url = shift @urls or die "No urls?";
+	if ($ENV{DOING_PAR_PACKER}) {
+		# arrange to have the server shut down in a few moments
+		my $procpid = $$;
+		my $pid = fork();
+		if (!defined $pid) { die "fork failed" }
+		elsif ($pid==0) { sleep 5; kill 'USR1', $procpid; exit; } # child
+		print "====> Please wait a few seconds...\n";
+		$SIG{USR1} = sub { $server->stop; exit };
+	}
+	else {
+		print "Attempting to open in browser: $url\n";
+		open_browser($url);
+	}
+};
+under sub {
+	my $c = shift;
+	return 1 if ($c->param('token')//'') eq $TOKEN;
+	$c->render(text => 'Bad token!', status => 403);
+	return undef;
+};
+
+get '/' => sub { shift->render } => 'index';
+
+post '/example' => sub {
+	my $c = shift;
+	my $data = $c->req->json;
+	# can do anything here, this is just an example
+	$data->{string} = reverse $data->{string};
+	$c->render(json => $data);
+};
+
+app->start('daemon', '-l', "https://localhost:$SERV_PORT$SSLCERTS");
+
+__DATA__
+
+@@ index.html.ep
+% layout 'main', title => 'WebPerl GUI Demo';
+<main role="main" class="container">
+	<div>
+		<h1>WebPerl Advanced GUI Demo</h1>
+		<p class="lead">Hello, Perl World!</p>
+		<div id="buttons"></div>
+	</div>
+</main>
--- a/experiments/gui_sweet/public/web.pl
+++ b/experiments/gui_sweet/public/web.pl
@ -0,0 +1,44 @@
+#!perl
+use warnings;
+use 5.028;
+use WebPerl qw/js sub1 encode_json/;
+
+# This is the code that WebPerl runs in the browser. It is loaded by index.html.
+
+my $window = js('window');
+my $document = js('document');
+my $jq = js('jQuery');
+
+sub do_ajax {
+	my %args = @_;
+	die "must specify a url" unless $args{url};
+	$args{fail} ||= sub { $window->alert(shift) };
+	$jq->ajax( $args{url}, {
+		$args{data} # when given data, default to POST (JSON), otherwise GET
+			? ( method=>$args{method}||'POST',
+				data=>encode_json($args{data}) )
+			: ( method=>$args{method}||'GET' ),
+	} )->done( sub1 {
+		$args{done}->(shift) if $args{done};
+	} )->fail( sub1 {
+		my ($jqXHR, $textStatus, $errorThrown) = @_;
+		$args{fail}->("AJAX Failed! ($errorThrown)");
+	} )->always( sub1 {
+		$args{always}->() if $args{always};
+	} );
+	return;
+}
+
+# slightly hacky way to get the access token, but it works fine
+my ($token) = $window->{location}{search}=~/\btoken=([a-fA-F0-9]+)\b/;
+
+my $btn = $jq->('<button>', { text=>"Click me!" } );
+$btn->click(sub {
+	$btn->prop('disabled',1);
+	do_ajax( url=>"/example?token=$token",
+		data => { string=>"rekcaH lreP rehtonA tsuJ" },
+		done => sub { $window->alert("The server says: ".shift->{string}) },
+		always => sub { $btn->prop('disabled',0); } );
+} );
+$btn->appendTo( $jq->('#buttons') );
+
--- a/experiments/gui_sweet/templates/layouts/main.html.ep
+++ b/experiments/gui_sweet/templates/layouts/main.html.ep
@ -0,0 +1,50 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+	<meta charset="utf-8">
+	<title><%= title %></title>
+	<meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
+	<link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.3.1/css/bootstrap.min.css" integrity="sha384-ggOyR0iXCbMQv3Xipma34MD+dH/1fQ784/j6cY/iJTQUOhcWr7x9JvoRxT2MZw1T" crossorigin="anonymous">
+	<style>
+		body { padding-top: 5rem; }
+	</style>
+</head>
+<body>
+	<nav class="navbar navbar-expand-md navbar-dark fixed-top bg-dark">
+		<a class="navbar-brand" href="#"><%= title %></a>
+		<button class="navbar-toggler" type="button" data-toggle="collapse" data-target="#navbarCollapse" aria-controls="navbarCollapse" aria-expanded="false" aria-label="Toggle navigation">
+			<span class="navbar-toggler-icon"></span>
+		</button>
+		<div class="collapse navbar-collapse" id="navbarCollapse">
+			<ul class="navbar-nav mr-auto">
+				<li class="nav-item active">
+					<a class="nav-link" href="#">Home <span class="sr-only">(current)</span></a>
+				</li>
+				<li class="nav-item">
+					<a class="nav-link" href="#">Link</a>
+				</li>
+				<li class="nav-item">
+					<a class="nav-link disabled" href="#" tabindex="-1" aria-disabled="true">Disabled</a>
+				</li>
+				<li class="nav-item dropdown">
+					<a class="nav-link dropdown-toggle" href="#" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Dropdown</a>
+					<div class="dropdown-menu" aria-labelledby="dropdown01">
+						<a class="dropdown-item" href="#">Action</a>
+						<a class="dropdown-item" href="#">Another action</a>
+						<a class="dropdown-item" href="#">Something else here</a>
+					</div>
+				</li>
+			</ul>
+		</div>
+	</nav>
+	
+	<%= content %>
+	
+	<!-- Bootstrap wants its script tags at the end of the body element, so we'll put everything here: -->
+	<script src="https://code.jquery.com/jquery-3.3.1.min.js" integrity="sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin="anonymous"></script>
+	<script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.7/umd/popper.min.js" integrity="sha384-UO2eT0CpHqdSJQ6hJty5KVphtPhzWj9WO1clHTMGa3JDZwrnQq4sF86dIHNDz0W1" crossorigin="anonymous"></script>
+	<script src="https://stackpath.bootstrapcdn.com/bootstrap/4.3.1/js/bootstrap.min.js" integrity="sha384-JjSmVgyd0p3pXB1rRibZUAYoIIy6OrQ6VrjIEaFf/nJGzIxFDsf4x0xIM+B07jRM" crossorigin="anonymous"></script>
+	<script src="webperl.js"></script>
+	<script type="text/perl" src="web.pl"></script>
+</body>
+</html>
--- a/experiments/p6/6demo.html
+++ b/experiments/p6/6demo.html
@ -0,0 +1,50 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<title>WebPerl Perl 6 Demos (Experimental)</title>
+
+<script src="webperl.js"></script>
+
+<!-- Please see the documentation at http://webperl.zero-g.net/perl6.html -->
+
+<!-- Example 1: A really basic script -->
+<script type="text/perl6">
+print "Hello, Perl 6 World!\n";
+</script>
+
+<!-- Example 2: Accessing JavaScript -->
+<script type="text/perl6">
+my $document = EVAL(:lang<JavaScript>, 'return document');
+$document.getElementById('my_button')
+	.addEventListener("click", -> $event {
+		print "You clicked 'Testing!'\n";
+	} );
+</script>
+
+<!-- Optional STDOUT/STDERR text area (if you don't use this, output goes to Javascript console) -->
+<script>
+window.addEventListener("load", function () {
+	document.getElementById('output')
+		.appendChild( Raku.makeOutputTextarea() );
+});
+</script>
+
+</head>
+<body>
+
+<p>This is a demo of the
+<a href="http://webperl.zero-g.net/perl6.html" target="_blank">experimental
+Perl 6 support</a> in
+<a href="http://webperl.zero-g.net" target="_blank">WebPerl</a>!</p>
+
+<p><em>Currently only works in Chrome (needs BigInt support) and
+may take a few seconds to load.</em></p>
+
+<div id="output"></div>
+<div id="buttons">
+	<button id="my_button">Testing!</button>
+</div>
+
+</body>
+</html>
--- a/experiments/p6/6init.pl
+++ b/experiments/p6/6init.pl
@ -0,0 +1,71 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+use FindBin;
+use Path::Class qw/dir/;
+use HTTP::Tiny;
+use File::Copy qw/copy/;
+$|++;
+
+# Quick & dirty script to patch P6 into the "web" dir
+
+# Note: To restore webperl.js to the original version:
+# $ git checkout web/webperl.js
+
+my $p6url = 'https://perl6.github.io/6pad/gen/eval_code.js';
+
+my $mydir = dir($FindBin::Bin);
+my $webdir = $mydir->parent->parent->subdir('web');
+
+print "Patching experimental Perl 6 support into ",$webdir->relative,"...\n";
+
+my $wpfile = $webdir->file('webperl.js');
+die "File structure not as I expected" unless -e $wpfile;
+
+my $http = HTTP::Tiny->new();
+my $jsfile = $webdir->file('perl6.js');
+print "$p6url: ";
+my $resp = $http->mirror($p6url, "$jsfile");
+print "$resp->{status} $resp->{reason}\n";
+die unless $resp->{success};
+print "-> mirrored to ",$jsfile->relative,"\n";
+
+my $wp = $wpfile->slurp(iomode=>'<:raw:encoding(UTF-8)');
+$wp =~ s{
+		^ \N* \bbegin_webperl6_patch\b \N* $
+		.*
+		^ \N* \bend_webperl6_patch\b \N* $
+	}{}msxi;
+die "I thought I clobbered the webperl6.js patch, why is there still a reference to Raku?"
+	if $wp=~/\bRaku\./;
+my $wp6file = $mydir->file('webperl6.js');
+my $wp6 = $wp6file->slurp(iomode=>'<:raw:encoding(UTF-8)');
+1 while chomp($wp6);
+$wpfile->spew(iomode=>'>:raw:encoding(UTF-8)', $wp.$wp6);
+print "Patched ",$wp6file->relative," into ",$wpfile->relative,"\n";
+
+for my $f ($mydir->children) {
+	next unless $f->basename=~/(?:html?|css)\z/i;
+	link_or_copy($f, $webdir);
+}
+
+
+sub link_or_copy {
+	my ($src,$dest) = @_;
+	die "Not a dir: $dest" unless -d $dest;
+	$dest = $dest->file( $src->basename );
+	if ( eval { symlink("",""); 1 } ) { # we have symlink support
+		if (!-l $dest) {
+			$dest->remove or die "$dest: $!" if -e $dest;
+			my $targ = $src->relative( $dest->dir );
+			symlink($targ,$dest) or die "symlink: $!";
+			print "Linked ",$dest->relative," to $targ\n";
+		}
+		else { print "Link ",$dest->relative," exists\n"; }
+	}
+	else {
+		$dest->remove or die "$dest: $!" if -e $dest;
+		copy($src,$dest) or die "copy: $!";
+		print "Copied ",$src->relative," to ",$dest->relative,"\n";
+	}
+}
--- a/experiments/p6/test6.html
+++ b/experiments/p6/test6.html
@ -0,0 +1,72 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<title>WebPerl Perl 6 Experiments</title>
+
+<script src="webperl.js"></script>
+
+<!--
+	The following is a demo of Perl 5 and Perl 6 calling each other via JavaScript.
+-->
+
+<script>
+	window.Foo = {
+		set: function (x,y) { window.Foo[x]=y }, // workaround, see P6 below
+	};
+</script>
+
+<script type="text/perl">
+	use warnings;
+	use 5.028;
+	
+	sub hello {
+		my $x = shift;
+		say "Hello from Perl 5! You said '$x'";
+	}
+	
+	my $Foo = js('window.Foo');
+	$Foo->{p5} = \&hello;
+	
+	js('document')->getElementById('btn_p5')
+		->addEventListener("click", sub {
+			say "This is Perl 5, attempting to call Perl 6...";
+			$Foo->p6("I am Perl 5!");
+		} );
+	
+	say "Perl 5 is ready.";
+</script>
+
+<script type="text/raku">
+	
+	sub hello ($x) {
+		say "Hello from Perl 6! You said '$x'"
+	}
+	
+	my $Foo = EVAL(:lang<JavaScript>, 'return window.Foo');
+	# I'm not yet sure why the following doesn't work, Foo.set is a workaround
+	#$Foo<p6> = &hello;
+	$Foo.set("p6", &hello);
+	
+	my $document = EVAL(:lang<JavaScript>, 'return document');
+	$document.getElementById('btn_p6')
+		.addEventListener("click", -> $event {
+			say "This is Perl 6, attempting to call Perl 5...";
+			$Foo.p5("I am Perl 6!");
+		} );
+	
+	say "Perl 6 is ready.";
+</script>
+
+</head>
+<body>
+
+<p>See the JS console! Don't click the buttons until both languages are ready.</p>
+
+<div id="buttons">
+	<button id="btn_p5">Perl 5</button>
+	<button id="btn_p6">Perl 6</button>
+</div>
+
+</body>
+</html>
--- a/experiments/p6/webperl6.js
+++ b/experiments/p6/webperl6.js
@ -0,0 +1,148 @@
+"use strict"; /* DO NOT EDIT THIS LINE! begin_webperl6_patch */
+
+/***** NOTICE: This is part of the experimental WebPerl Perl 6 support.
+ * This file (webperl6.js) is currently patched into webperl.js by 6init.pl.
+ * There is currently a fair amount of duplication between the following code
+ * and webperl.js that should probably be reduced.
+ * This file should eventually be merged permanently into webperl.js.
+ */
+
+/** ***** WebPerl - http://webperl.zero-g.net *****
+ * 
+ * Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
+ * at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
+ * Berlin, Germany, http://www.igb-berlin.de
+ * 
+ * This program is free software; you can redistribute it and/or modify
+ * it under the same terms as Perl 5 itself: either the GNU General Public
+ * License as published by the Free Software Foundation (either version 1,
+ * or, at your option, any later version), or the "Artistic License" which
+ * comes with Perl 5.
+ * 
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+ * See the licenses for details.
+ * 
+ * You should have received a copy of the licenses along with this program.
+ * If not, see http://perldoc.perl.org/index-licence.html
+**/
+
+// I'm using "Raku" because the Hamming distance from Perl <-> Perl6 is too small for me,
+// it's too much of a risk for typos since webperl.js also provides the "Perl" object.
+// But the following functions are currently available on both the Raku.* and Perl6.* objects:
+//   .init(), .eval(), .addStateChangeListener(), .makeOutputTextarea()
+// but everything else, such as Raku.state or Raku.output, needs to go via the Raku object.
+var Raku = {
+	state: "Uninitialized",  // user may read (only!) this
+	// internal variables:
+	stdout_buf: "", stderr_buf: "", // for our default Raku.output implementation
+};
+var Perl6 = {};
+
+Raku.changeState = function (newState) {
+	if (Raku.state==newState) return;
+	var oldState = Raku.state;
+	Raku.state = newState;
+	for( var i=0 ; i<Raku.stateChangeListeners.length ; i++ )
+		Raku.stateChangeListeners[i](oldState,newState);
+};
+Raku.stateChangeListeners = [ function (from,to) {
+	console.debug("Raku: state changed from "+from+" to "+to);
+} ];
+Raku.addStateChangeListener = Perl6.addStateChangeListener = function (handler) {
+	Raku.stateChangeListeners.push(handler);
+};
+
+// chan: 1=STDOUT, 2=STDERR
+// implementations are free to ignore the "chan" argument if they want to merge the two streams
+Raku.output = function (str,chan) { // can be overridden by the user
+	var buf = chan==2 ? 'stderr_buf' : 'stdout_buf';
+	Raku[buf] += str;
+	var pos = Raku[buf].indexOf("\n");
+	while (pos>-1) {
+		console.log( chan==2?"STDERR":"STDOUT", Raku[buf].slice(0,pos) );
+		Raku[buf] = Raku[buf].slice(pos+1);
+		pos = Raku[buf].indexOf("\n");
+	}
+};
+
+Raku.makeOutputTextarea = Perl6.makeOutputTextarea = function (id) {
+	var ta = document.createElement('textarea');
+	if (id) ta.id = id;
+	ta.rows = 24; ta.cols = 80;
+	ta.setAttribute("readonly",true);
+	Raku.output = function (str) {
+		ta.value = ta.value + str;
+		ta.scrollTop = ta.scrollHeight;
+	};
+	return ta;
+};
+
+Raku.init = Perl6.init = function (readyCallback) {
+	if (Raku.state != "Uninitialized")
+		throw "Raku: can't call init in state "+Raku.state;
+	Raku.changeState("Initializing");
+	var baseurl = Perl.Util.baseurl(getScriptURL()); // from webperl.js
+	
+	// NOTE that NQP_STDOUT currently gets handed HTML,
+	// so we jump through some hoops to decode it here:
+	var decode_div = document.createElement('div');
+	window.NQP_STDOUT = function (str) {
+		str = str.replace(/[\<\>]/g,''); // declaw unexpected tags
+		decode_div.innerHTML = str;
+		str = decode_div.textContent;
+		decode_div.textContent = '';
+		Raku.output(str,1);
+	};
+	
+	console.debug("Raku: Fetching Perl6...");
+	var script = document.createElement('script');
+	script.async = true; script.defer = true;
+	// Order is important here: 1. Add to DOM, 2. set onload, 3. set src
+	document.getElementsByTagName('head')[0].appendChild(script);
+	script.onload = function () {
+		Raku.eval = Perl6.eval = window.evalP6;
+		Raku.changeState("Ready");
+		if (readyCallback) readyCallback();
+	};
+	script.src = baseurl+"/perl6.js";
+}
+
+window.addEventListener("load", function () {
+	var scripts = [];
+	var script_src;
+	document.querySelectorAll("script[type='text/perl6'],script[type='text/raku']")
+		.forEach(function (el) {
+			if (el.src) {
+				if (script_src || scripts.length)
+					console.error('Only a single Perl6 script may be loaded via "script src=", ignoring others');
+				else
+					script_src = el.src;
+			}
+			else {
+				if (script_src)
+					console.error('Only a single Perl6 script may be loaded via "script src=", ignoring others');
+				else
+					scripts.push(el.innerHTML);
+			}
+		});
+	if (script_src) {
+		console.debug("Raku: Found a script with src, fetching and running...", script_src);
+		var xhr = new XMLHttpRequest();
+		xhr.addEventListener("load", function () {
+			var code = this.responseText;
+			Raku.init(function () { Raku.eval(code); });
+		});
+		xhr.open("GET", script_src);
+		xhr.send();
+	}
+	else if (scripts.length) {
+		console.debug("Raku: Found",scripts.length,"embedded script(s), autorunning...");
+		var code = scripts.join(";\n");
+		Raku.init(function () { Raku.eval(code); });
+	}
+	else console.debug("Raku: No embedded scripts");
+});
+
+/* DO NOT EDIT THIS LINE! end_webperl6_patch */
--- a/experiments/use_http.html
+++ b/experiments/use_http.html
@ -0,0 +1,59 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<title>WebPerl Sync HTTP Demo</title>
+
+<!--
+This is a demo of dynamically loading modules via synchronous
+XMLHttpRequests.
+
+WARNING: Please note that https://xhr.spec.whatwg.org/ says:
+"Synchronous XMLHttpRequest outside of workers is in the process of
+being removed from the web platform as it has detrimental effects to
+the end user’s experience. (This is a long process that takes many
+years.)"
+
+The method was first described by LanX at
+https://www.perlmonks.org/?node_id=1225490
+Thank you! :-)
+-->
+
+<script src="webperl.js"></script>
+<script type="text/perl">
+use warnings;
+use 5.028;
+use WebPerl qw/js js_new/;
+
+BEGIN {
+	push @INC, sub {
+		my (undef,$file) = @_;
+		
+		# sadly, MetaCPAN doesn't send CORS headers (yet)
+		#my $url = 'https://fastapi.metacpan.org/v1/source/'
+		#	. ( $file =~ s/\//::/r =~ s/\.pm$//ir );
+		
+		# this requires one to copy Dump.pm into web/Data/:
+		my $url = $file;
+		
+		my $xhr = js_new('XMLHttpRequest');
+		$xhr->open('GET', $url, 0);
+		$xhr->send();
+		if ($xhr->{status}==200)
+			{ return \$xhr->{responseText} }
+		else { return }
+	};
+}
+
+use Data::Dump 'pp';
+js('window')->alert(pp({Hello=>"World!"}));
+
+</script>
+
+</head>
+<body>
+
+<p>Output: see JS console</p>
+
+</body>
+</html>
--- a/experiments/xterm.html
+++ b/experiments/xterm.html
@ -0,0 +1,42 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<title>WebPerl XTerm.js Test</title>
+
+<!--cacheable--><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/xterm@3.7.0/dist/xterm.css" integrity="sha256-OSfRj4jMeYVFSwgcvVvKj4V0+mwqSP9YJjyEJe7dmK0=" crossorigin="anonymous" />
+<!--cacheable--><script src="https://cdn.jsdelivr.net/npm/xterm@3.7.0/dist/xterm.js" integrity="sha256-gIILiZzLBFrmY1dzcKJC2Nmw4o9ISITTNsro2rf8svM=" crossorigin="anonymous"></script>
+
+<script src="webperl.js"></script>
+
+<script>
+"use strict";
+window.addEventListener('load', function () {
+	var term = new Terminal();
+	term.open(document.getElementById('terminal'));
+	Perl.output = function (str) { term.write(str) };
+	Module.preRun.push(function () { ENV.TERM = "xterm" });
+});
+</script>
+
+<script type="text/perl">
+use warnings;
+use strict;
+use Term::ANSIColor qw/colored/;
+
+print colored("Hello, Color World!\n", 'black on_yellow');
+
+# Possible To-Do for Later: can we accept input from XTerm?
+# might not be so easy: https://github.com/xtermjs/xterm.js/issues/1546#issuecomment-402547923
+# (keypresses are events, but reading from STDIN is normally blocking...)
+
+</script>
+
+</head>
+<body>
+
+<div id="terminal"></div>
+<p><a href="http://xtermjs.org/" target="_blank">xterm.js</a></p>
+
+</body>
+</html>
--- a/web/democode/demo.html
+++ b/web/democode/demo.html
@ -0,0 +1,208 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<title>WebPerl Code Demo</title>
+
+<!-- ##### WebPerl - http://webperl.zero-g.net #####
+
+Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
+at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
+Berlin, Germany, http://www.igb-berlin.de
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl 5 itself: either the GNU General Public
+License as published by the Free Software Foundation (either version 1,
+or, at your option, any later version), or the "Artistic License" which
+comes with Perl 5.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+See the licenses for details.
+
+You should have received a copy of the licenses along with this program.
+If not, see http://perldoc.perl.org/index-licence.html
+##### -->
+
+<style>
+p {
+	font-family: Calibri, Ubuntu, "Droid Sans", Tahoma, Arial, Helvetica, sans-serif;
+}
+pre,textarea,code {
+	font-family: Consolas, "Ubuntu Mono", "Droid Sans Mono", "Lucida Console", "Courier New", Courier, monospace;
+}
+iframe.perleditor {
+	display: block;
+	border: 1px solid black;
+	width: 100%;
+	max-width: 50em;
+	margin: 0.2em 0;
+}
+</style>
+<!-- Optional "IFrame Resizer": -->
+<!--cacheable--><!--script src="https://cdnjs.cloudflare.com/ajax/libs/iframe-resizer/3.6.2/iframeResizer.min.js" integrity="sha256-aYf0FZGWqOuKNPJ4HkmnMZeODgj3DVslnYf+8dCN9/k=" crossorigin="anonymous"></script-->
+
+</head>
+<body>
+
+<p>
+This page demonstrates the embeddable
+<strong><a href="http://webperl.zero-g.net" target="_blank">WebPerl</a>
+Code Demo Editor</strong> (beta), which can be embedded using <code>&lt;iframe&gt;</code> elements, including
+<a href="https://developer.mozilla.org/en-US/docs/Web/HTML/Element/iframe#attr-sandbox" target="_blank">sandboxing</a>.
+The documentation is contained in the source of this page, please use
+the "View Source" function of your browser to view it, or have a look at
+<a href="https://github.com/haukex/webperl/tree/master/web/democode"
+	target="_blank">the project sources on GitHub</a>.
+</p>
+
+<!-- Thank you to LanX from PerlMonks for the inspiration! :-)
+     https://www.perlmonks.org/?node_id=1223812 -->
+
+<!-- First, you have to include the following hidden IFrame, which
+loads the "Perl runner". This is (currently) necessary because this
+IFrame needs to re-load itself in order to re-run Perl. This IFrame
+*must* have the "name='perlrunner'" attribute and must be embedded at
+the same level as the Perl editor IFrame(s). The frames communicate
+via the "window.postMessage()" mechanism, which is safe for
+cross-origin communications and sandboxing. Currently, in order to
+conserve memory, a single runner serves multiple "clients", that is,
+the "editor" IFrames below.
+
+It is also possible to link to perleditor.html directly: if it
+detects that it is not running in an IFrame, it will load the runner
+on its own (after a very brief delay).
+-->
+
+<iframe name="perlrunner" sandbox="allow-scripts" src="perlrunner.html" style="display:none;"></iframe>
+
+<p>This is a simple example of running a oneliner:</p>
+
+<!-- The following is a basic example showing a single input file and
+Perl oneliner.
+
+All files are currently always encoded as UTF-8, which is why the
+"-CSD" switch is used below. This is not strictly necessary when the
+input files are pure ASCII, but it is important to remember that Perl
+does *not* default to UTF-8. Reading/writing binary data via the
+editor and runner is currently *not* supported.
+
+Standard input/output redirection is currently not supported. It is
+also currently not supported to supply STDIN directly to the script,
+the workaround is to use input files, supply the filenames on the
+command line, and use Perl's magic ARGV operator "<>". Support for
+redirections may be added in a future version.
+
+The JavaScript shown below is not strictly necessary, it is also
+possible to specify a "src='...'" attribute directly in the IFrame
+tag, for example using the "Copy Frame URL" link shown in the editor.
+
+Note that implementing an automatic resize of the IFrame to fit its
+contents is nontrivial when sandboxing is enabled, which is why a
+fixed height is used below. However, see for example
+http://davidjbradshaw.github.io/iframe-resizer/ - examples of how
+to use this are included in the source files here.
+-->
+
+<iframe id="perl1" sandbox="allow-scripts" class="perleditor" style="height:20em;"></iframe>
+<script>
+document.getElementById('perl1').src =
+	"perleditor.html#" + encodeURIComponent(JSON.stringify( {
+		inputs: [ { fn:"in.txt", text:"Foo\nBar\nQuz" } ],
+		cmdline: "perl -CSD -pe 's/[aeiou]/_/g' in.txt",
+	} ));
+// Example of how to use the Optional "IFrame Resizer":
+//iFrameResize({checkOrigin:false}, document.getElementById('perl1'));
+</script>
+
+<p>This example includes several files:</p>
+
+<!-- The following example demonstrates (almost) all of the possible
+options that can be passed to the editor.
+
+The "cmdline" option and the corresponding input box in the editor
+only support very basic quoting constructs:
+- Strings in double quotes may contain whitespace, \\, and/or \",
+  the latter two will be changed to \ and " respectively;
+- strings in single quotes may contain whitespace, \\, and/or \',
+  the latter two will be changed to \ and ' respectively;
+- other strings (without whitespace) will not be modified.
+Note: As a consequence of these rules, inside of single or double
+quotes, both \\n and \n resolve to \n (for any character "n" that
+is not a backslash or single resp. double quote).
+
+Instead of "cmdline", you may specify "argv" as an array ("cmdline"
+overrides "argv"). This array should *not* include "perl" as the
+first element; this is added automatically.
+
+So that it can be displayed in the input box, the "argv" array
+will be encoded into a single string - this means that if you want
+full control over the formatting of the command line as it is
+displayed to the user in the editor, use "cmdline" instead. The
+"Copy JSON" data will include both "cmdline" and "argv" (so you
+can choose to delete whichever one you don't need), while "Copy
+URL" will include only "cmdline" (for brevity).
+
+You may specify the text of a script via "script", or, alternatively,
+a "script_url" from which the script is to be fetched - however, be
+aware that cross-origin restrictions may limit your ability to fetch
+URLs from other origins. You can specify the script's filename with
+"script_fn".
+
+Input files ("inputs") are specified as an array of objects; the
+properties of the object are similar to the script: filenames are
+specified with "fn", and the text of the file via "text", or
+alternatively, you may specify a "url" from which the content is to
+be fetched.
+
+The output files ("outputs") are an array of filenames. After the
+script finishes, the "Perl runner" will attempt to read these files
+and display them to the user. It is also possible to specify output
+files with the same name as an input file, for example if Perl's "-i"
+option was used.
+
+The current working directory of Perl defaults to the "home"
+directory in Emscripten's virtual file system, currently
+"/home/web_user", and all filenames are relative to this directory.
+You may also specify absolute filenames such as "/tmp/foo.txt".
+However, note that intermediate directories are currently not
+automatically created, so if you specify files with nonexistent
+directories like "/tmp/foo/bar.txt" or the relative "foo/bar.txt",
+this will not work.
+
+Additional options: Setting "mergeStdOutErr" to a true value causes
+STDOUT and STDERR output to be output together, similar to the way
+they would be on the console. *However,* note that WebPerl
+currently doesn't think it's connected to a terminal, which means
+that perl defaults to block instead of line buffering STDOUT, so
+it may seem like you always see STDERR output before STDOUT. If you
+want to truly intermix the two, turn on autoflush ("$|=1;").
+
+If you set the "autorun" option, the editor will attempt to run the
+script as soon as the runner is ready. *WARNING:* If you have
+multiple editors embedded in the page, *do not* enable "autorun"
+for more than one editor, as otherwise you will likely trigger a
+race condition, resulting in an error being shown to the user.
+-->
+
+<iframe id="perl2" sandbox="allow-scripts" class="perleditor" style="height:42em;"></iframe>
+<script>
+document.getElementById('perl2').src =
+	"perleditor.html#" + encodeURIComponent(JSON.stringify( {
+		argv: ["devoweler.pl","mytext.txt","other.txt"],
+		script: "use warnings;\nuse strict;\n\nopen my $vfh, '>', 'vowels.txt' or die $!;\n"
+			+"while (<>) {\n\tprint $vfh $1 while s/([aeiou])/_/i;\n\tprint;\n}\nclose $vfh;",
+		script_fn: "devoweler.pl",
+		inputs: [
+			{ fn: "mytext.txt", text: "Foo\nBar\nQuz\n" },
+			{ fn: "other.txt", text: "Hello, World!" },
+		],
+		outputs: [ "vowels.txt" ],
+		autorun: true,
+	} ));
+//iFrameResize({checkOrigin:false}, document.getElementById('perl2'));
+</script>
+
+</body>
+</html>
--- a/web/democode/perleditor.css
+++ b/web/democode/perleditor.css
@ -0,0 +1,83 @@
+
+body {
+	margin: 0.4em;
+}
+.text {
+	font-family: Calibri, Ubuntu, "Droid Sans", Tahoma, Arial, Helvetica, sans-serif;
+	font-size: 0.9em;
+}
+pre,textarea,code,.code,.filename,.CodeMirror {
+	font-family: Consolas, "Ubuntu Mono", "Droid Sans Mono", "Lucida Console", "Courier New", Courier, monospace;
+}
+pre {
+	margin: 0;
+}
+a {
+	text-decoration: none;
+}
+
+.CodeMirror {
+	border: 1px solid lightgrey;
+	height: auto;
+}
+.CodeMirror-scroll {
+	max-height: 12em;
+}
+
+.codewithfn {
+	margin-top: 0.4em;
+}
+.fnfuncs {
+	cursor: default;
+}
+.filename {
+	display: inline-block;
+	border: 0;
+	padding: 1px;
+	min-width: 1em;
+	cursor: auto;
+}
+.filefuncs {
+	display: inline-block;
+	padding-top: 2px;
+	position: absolute;
+	right: 0.2em;
+}
+.fakelink {
+	color: darkblue;
+	cursor: pointer;
+}
+.badfilename {
+	background-color: rgba(255,200,200,255);
+	/* also has a placeholder text */
+	min-width: 10em;
+}
+
+#perlctrl {
+	margin-top: 0.3em;
+}
+
+#misctools {
+	display: inline-block;
+	border: 1px solid grey;
+	padding: 1px 0.8em 1px 0.5em;
+	margin-top: 0.5em;
+}
+#runnerstate {
+	margin-top: 0.2em;
+	margin-bottom: 0.3em;
+}
+#runnererrors {
+	background-color: rgba(255,200,200,255);
+	margin-top: 0.3em;
+	margin-bottom: 0.3em;
+	padding: 0.1em 0.2em;
+}
+
+#inputhere, #outputhere {
+	text-align: right;
+}
+
+#footer {
+	margin-top: 0.5em;
+}
--- a/web/democode/perleditor.html
+++ b/web/democode/perleditor.html
@ -0,0 +1,550 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<title>WebPerl Perl Editor</title>
+
+<!-- ##### WebPerl - http://webperl.zero-g.net #####
+
+Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
+at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
+Berlin, Germany, http://www.igb-berlin.de
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl 5 itself: either the GNU General Public
+License as published by the Free Software Foundation (either version 1,
+or, at your option, any later version), or the "Artistic License" which
+comes with Perl 5.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+See the licenses for details.
+
+You should have received a copy of the licenses along with this program.
+If not, see http://perldoc.perl.org/index-licence.html
+##### -->
+
+<!-- Please see the documentation on how to use this in demo.html. -->
+
+<!--cacheable--><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/normalize/8.0.0/normalize.min.css" integrity="sha256-oSrCnRYXvHG31SBifqP2PM1uje7SJUyX0nTwO2RJV54=" crossorigin="anonymous" />
+<!--cacheable--><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.39.2/codemirror.min.css" integrity="sha256-I8NyGs4wjbMuBSUE40o55W6k6P7tu/7G28/JGUUYCIs=" crossorigin="anonymous" />
+<link rel="stylesheet" href="perleditor.css" />
+
+<!-- Optional "IFrame Resizer": -->
+<!--cacheable--><!--script src="https://cdnjs.cloudflare.com/ajax/libs/iframe-resizer/3.6.2/iframeResizer.contentWindow.min.js" integrity="sha256-dEPtZVO6cj6PAmBeDzFskohUob+woyzF6TaNcYpAk84=" crossorigin="anonymous"></script-->
+<!--cacheable--><script src="https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.39.2/codemirror.min.js" integrity="sha256-uRIJ6Wfou5cTtmcCvQNA9lvsYl8sUbZXxnfG+P79ssY=" crossorigin="anonymous"></script>
+<!--cacheable--><script src="https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.39.2/mode/perl/perl.min.js" integrity="sha256-Uu9QBfi8gU6J/MzQunal8ewmY+i/BbCkBrcAXA5bcCM=" crossorigin="anonymous"></script>
+<!--cacheable--><script src="https://code.jquery.com/jquery-3.3.1.min.js" integrity="sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin="anonymous"></script>
+<script>
+"use strict";
+
+var mergeStdOutErr = false; // Possible To-Do for Later: could make an options hash
+var perlRunner; // the Perl runner iframe found by findPerlRunner()
+var buttonBlockers = {}; // for updateButtonState()
+var lastExitStatus; // for runnerState()
+var loadedRunnerIframe = false; // for findPerlRunner()
+var autoRunPerl = false; // for the message listener
+
+function makeCM (textarea,plain,ro) {
+	return CodeMirror.fromTextArea( textarea[0], {
+		viewportMargin: Infinity, // so browser's search works, not good for long documents though
+		lineNumbers:true, indentWithTabs:true,
+		tabSize:4, indentUnit:4,
+		mode: plain?"text/plain":"perl",
+		readOnly: ro?true:false,
+	} );
+}
+
+function runnerState (text) {
+	$('#runnerstate').text( text
+		+ (lastExitStatus ? ' (last exit status was '+lastExitStatus+')'
+			: '') );
+}
+
+function updateButtonState () {
+	$('#runperl').prop("disabled",
+		Object.keys(buttonBlockers).length>0 );
+}
+
+function stdOutput (which, data) { // which: 1=stdout, 2=stderr
+	if (mergeStdOutErr) which = 1;
+	var div = $(which==1?'#stdout':'#stderr');
+	div.show();
+	var cm = div.data('CodeMirrorInstance');
+	if (!cm) {
+		cm = makeCM($('textarea',div),1,1);
+		div.data('CodeMirrorInstance', cm);
+	}
+	if (data && data.length)
+		cm.setValue( cm.getValue() + data );
+}
+function clearStdOutput () {
+	$('#stdout,#stderr').each(function (i) {
+		var div = $(this);
+		var cm = div.data('CodeMirrorInstance');
+		if (cm) cm.setValue('');
+		div.hide();
+	});
+}
+
+function findPerlRunner () {
+	// assume calling this function means the runner isn't available
+	buttonBlockers.runnerState = 1;
+	updateButtonState();
+	// poll for perlRunner, which gets set by the message listener
+	var warnAt = Date.now() + 15*1000; // milliseconds
+	var loadIframe = Date.now() + 3*1000; // milliseconds
+	var pollId;
+	pollId = window.setInterval( function () {
+		if (perlRunner)
+			window.clearInterval(pollId);
+		else if (!loadedRunnerIframe && self===top && Date.now()>loadIframe) {
+			console.debug("Perl Editor is attempting to load Perl Runner...");
+			/* This is a special case: We appear to be the toplevel window,
+			 * and are unable to contact the runner within a fixed amount of time.
+			 * So we assume that someone has linked directly to this page instead
+			 * of loading it in an IFrame, so we'll load the runner ourselves. */
+			$('<iframe/>',{name:"perlrunner",sandbox:"allow-scripts",
+				src:"perlrunner.html",style:"display:none;"})
+					.appendTo('body');
+			loadedRunnerIframe = true;
+		}
+		else {
+			if (window.parent && window.parent.frames["perlrunner"])
+				window.parent.frames["perlrunner"].postMessage(
+					{perlRunnerDiscovery:1}, '*');
+			if ( Date.now()>warnAt ) {
+				$('#runnererrors>pre').text("Perl does not appear to have loaded yet, still waiting...");
+				$('#runnererrors').show();
+				warnAt = Date.now() + 5*1000; // milliseconds
+			}
+		}
+	}, 100);
+}
+
+window.addEventListener('message', function (event) {
+	var data = event.data;
+	if (data["perlRunnerState"]) {
+		if ( data.perlRunnerState=="Ready" ) {
+			perlRunner = event.source;
+			delete buttonBlockers.runnerState;
+			updateButtonState();
+			if (autoRunPerl) {
+				autoRunPerl = false;
+				$('#runperl').click();
+			}
+		}
+		else if ( data.perlRunnerState=="Ended" ) {
+			if ('exitStatus' in data)
+				lastExitStatus =  ''+data.exitStatus;
+			// we know the runner will reload itself now
+			perlRunner = null;
+			findPerlRunner();
+		}
+		runnerState("Perl is "+data.perlRunnerState);
+	}
+	else if (data["perlOutput"])
+		stdOutput(data.perlOutput.chan, data.perlOutput.data);
+	else if (data["perlOutputFiles"]) {
+		data.perlOutputFiles.forEach(function (outp) {
+			setupOutputFile(outp.fn, outp.text);
+		});
+	}
+	else if (data["perlRunnerError"]) {
+		$('#runnererrors').show();
+		$('#runnererrors>pre').append(data.perlRunnerError+"\n");
+	}
+	else if (data.substring(0,13)=="[iFrameSizer]") {} // ignore quietly
+	else console.warn("Perl Editor ignoring unknown message:",data);
+});
+
+function parseCmdLine(str) {
+	// not the prettiest code but it works
+	var re = /"((?:\\"|\\\\|[^"])*)"|'((?:\\'|\\\\|[^'])*)'|(\S+)/g;
+	var argv = [];
+	var match;
+	while ((match = re.exec(str)) !== null) {
+		     if (typeof match[1] != 'undefined') argv.push(match[1].replace(/\\\\/g,"\\").replace(/\\"/g,"\""));
+		else if (typeof match[2] != 'undefined') argv.push(match[2].replace(/\\\\/g,'\\').replace(/\\'/g,'\''));
+		else if (typeof match[3] != 'undefined') argv.push(match[3]);
+		else throw "Unexpected match "+match;
+	}
+	return argv;
+}
+function encodeCmdLine(arr) {
+	var out = [];
+	for (var i=0; i<arr.length; i++) {
+		/* Note: we only *need* to encode strings if they contain /[\s'"\\]/,
+		 * but since we want to show the users a command line similar to a shell,
+		 * I've added $ */
+		out.push( arr[i].match(/[\s'"\\\$]/)
+			? "'"+arr[i].replace(/\\/g, "\\\\").replace(/'/g, "\\'")+"'"
+			: arr[i] );
+	}
+	return out.join(' ');
+}
+
+function fetchUrl(url,cm) { // fetch the contents of a URL into a CodeMirror instance
+	cm.setValue("Fetching URL\n"+url+"\nPlease wait...");
+	buttonBlockers["fetchUrls"]++;
+	updateButtonState();
+	$.get(url, function (data) {
+			cm.setValue(data);
+		},'text').fail(function (jqXHR,textStatus,errorThrown) {
+			cm.setValue("Fetching URL\n"+url+"\nFailed!\n"+textStatus+"\n"+errorThrown);
+		}).always(function () {
+			buttonBlockers.fetchUrls--;
+			if (!buttonBlockers.fetchUrls)
+				delete buttonBlockers.fetchUrls;
+			updateButtonState();
+		});
+}
+
+function makeCodeWithFn (fn,targ,ro,isscript) {
+	var div = $('<div/>',{class:"codewithfn"});
+	
+	var fnfuncs = $('<div/>',{class:"fnfuncs"}).appendTo(div);
+	
+	var filename = $('<input/>',{class:"filename code",type:"text",
+		placeholder:"Enter a filename!"})
+			.appendTo(fnfuncs);
+	filename.val(fn);
+	// autosize the filename text box via a hidden span
+	var fn_width = $('<span/>',
+			{class:"code",style:"display:none;white-space:pre;"}
+		).insertAfter(filename);
+	filename.on('input', function () {
+		var newfn = filename.val();
+		fn_width.text( newfn );
+		filename.width( fn_width.width()+10 );
+		if (newfn.length)
+			filename.removeClass("badfilename");
+		else
+			filename.addClass("badfilename");
+	});
+	/* we need to trigger this handler once when the input
+	 * field is added to the document, we do this below */
+	
+	var filefuncs = $('<div/>',{class:"filefuncs text"})
+		.appendTo(fnfuncs);
+	
+	var conf = $('<span/>', {})
+		.append(
+			"&ensp;",
+			"Are you sure?",
+			"&ensp;",
+			$('<span/>',{class:"fakelink",text:"Yes"})
+				.click(function () {
+					div.remove();
+					if (isscript) $('#addscript').show();
+				}),
+			"&ensp;",
+			$('<span/>',{class:"fakelink",text:"Cancel"})
+				.click(function () { conf.hide(); }),
+		);
+	$('<span/>',{class:"fakelink",text:"Delete"})
+		.appendTo(filefuncs).click(function () {
+			conf.show();
+		});
+	conf.hide();
+	conf.appendTo(filefuncs);
+	
+	var ta = $('<textarea/>').appendTo(div);
+	targ.before(div);
+	filename.trigger('input'); // see above
+	var cm = makeCM(ta, !(isscript||fn.match(/\.pl$/i)), ro);
+	div.data('CodeMirrorInstance', cm);
+	return {div:div,ta:ta,cm:cm};
+}
+
+function pickNewFilename (inNotOut) {
+	var x = inNotOut ? 'input' : 'output';
+	for (var i=1; i<1000; i++) {
+		var fn = x+i+".txt";
+		var found = $('div.'+x+'s .filename')
+			.filter(function(){ return $(this).val() == fn });
+		if (!found.length)
+			return fn;
+	}
+	$('#runnererrors>pre').text('Too many '+x+' files');
+	$('#runnererrors').show();
+	throw 'Too many '+x+' files';
+}
+
+function setupOutputFile (fn, text) {
+	var cm;
+	if (fn) {
+		var founddiv = $('div.outputs')
+			.filter(function(){ return $('.filename',this).val() == fn });
+		if (founddiv.length)
+			cm = founddiv.data('CodeMirrorInstance');
+	}
+	else
+		fn = pickNewFilename(false);
+	if (!cm) {
+		var cfn = makeCodeWithFn(fn, $('#outputhere'), 1);
+		cfn.div.addClass("outputs");
+		cm = cfn.cm;
+	}
+	cm.setValue( text ? text : '' );
+}
+
+function setupInputFile (inp) {
+	var fn = inp["fn"] ? inp.fn : pickNewFilename(true);
+	var cfn = makeCodeWithFn(fn, $('#inputhere'), 0);
+	cfn.div.addClass("inputs");
+	if (inp["text"])
+		cfn.cm.setValue(inp.text);
+	else if (inp["url"])
+		fetchUrl(inp.url, cfn.cm);
+}
+
+function getFileData () {
+	var filedata = {};
+	// command-line args
+	filedata.cmdline = $('#argv').val();
+	var argv = parseCmdLine( filedata.cmdline );
+	if ( argv.length<1 || argv[0]!="perl" ) {
+		$('#runnererrors>pre').text('Invalid command line, command must be "perl"');
+		$('#runnererrors').show();
+		return;
+	} // else
+	argv.shift();
+	$('#runnererrors>pre').text('');
+	$('#runnererrors').hide();
+	filedata.argv = argv;
+	// script
+	var scriptdiv = $('#script');
+	if (scriptdiv.is(':visible')) {
+		filedata.script = scriptdiv.data('CodeMirrorInstance').getValue();
+		filedata.script_fn = scriptdiv.find('.filename').val();
+	}
+	// inputs
+	$('.inputs').each(function () {
+		var div = $(this);
+		var fn = $('.filename',div).val();
+		var text = div.data('CodeMirrorInstance').getValue();
+		if (!filedata["inputs"]) filedata.inputs = [];
+		filedata.inputs.push( { fn:fn, text:text } );
+	});
+	// outputs
+	$('.outputs').each(function () {
+		var fn = $(this).find('.filename').val();
+		if (!filedata["outputs"]) filedata.outputs = [];
+		filedata.outputs.push(fn);
+	});
+	return filedata;
+}
+
+function copyit (what) {
+	var pageurl = $('#pageurl');
+	pageurl.val(what);
+	pageurl.show();
+	pageurl[0].select();
+	document.execCommand("copy");
+	pageurl.hide();
+}
+
+$(function () {
+	
+	var hashdata = window.location.hash.substr(1);
+	var hash = hashdata.length>0 ? JSON.parse(decodeURIComponent(hashdata)) : {};
+	
+	$('#showtools').click(function () {
+		$('#thetools,#footer').toggle();
+		$('#showtools').text( $('#thetools').is(':visible')
+			? 'Hide Tools' : 'Show Tools' );
+	});
+	$('#webperllink').click(function () {
+		$('#webperlurl').show();
+	});
+	
+	// script
+	var addscript = $('#addscript');
+	if ( hash["script"] || hash["script_url"] ) {
+		var fn = hash["script_fn"] ? hash.script_fn : 'script.pl';
+		var cfn = makeCodeWithFn(fn, $('#perlctrl'), 0, 1);
+		cfn.div.attr("id", "script");
+		if (hash["script"])
+			cfn.cm.setValue(hash.script);
+		else if (hash["script_url"])
+			fetchUrl(hash.script_url, cfn.cm);
+		addscript.hide();
+	}
+	else
+		addscript.show();
+	$('#addscript .fakelink').click(function () {
+		addscript.hide();
+		if ($('#script').length) return;
+		var cfn = makeCodeWithFn('script.pl', $('#perlctrl'), 0, 1);
+		cfn.div.attr("id", "script");
+		cfn.cm.setValue("use warnings;\nuse strict;\n\n");
+	});
+	
+	// command line
+	var argv_inp = $('#argv');
+	var argv_autosize = $('<span/>',
+			{class:"code",style:"display:none;white-space:pre;"}
+		).insertAfter(argv_inp);
+	argv_inp.on('input', function () {
+		argv_autosize.text( argv_inp.val() );
+		argv_inp.width( argv_autosize.width()+10 );
+	});
+	if (hash["cmdline"])
+		argv_inp.val(hash.cmdline);
+	else if (hash["argv"])
+		argv_inp.val("perl "+encodeCmdLine(hash.argv));
+	argv_inp.trigger('input');
+	
+	// input files
+	$('.inputs').remove();
+	if ( hash["inputs"] ) hash.inputs.forEach(function(inp) {
+		setupInputFile(inp);
+	});
+	$('#addinput').click(function () {
+		setupInputFile( {} );
+	});
+	
+	// stdout/stderr
+	var mergestdoe = $('#mergestdoe');
+	var stdout_fn = $('#stdout .filename');
+	if (hash["mergeStdOutErr"]) {
+		mergeStdOutErr = true;
+		stdout_fn.val("STDOUT+STDERR");
+		mergestdoe.text("Split STDOUT+ERR");
+	}
+	else {
+		mergeStdOutErr = false;
+		stdout_fn.val("STDOUT");
+	}
+	clearStdOutput();
+	mergestdoe.click(function () {
+		clearStdOutput();
+		mergeStdOutErr = !mergeStdOutErr;
+		stdout_fn.val( mergeStdOutErr ? "STDOUT+STDERR" : "STDOUT" );
+		mergestdoe.text( mergeStdOutErr ? "Split STDOUT+ERR" : "Merge STDOUT+ERR" );
+	});
+	
+	// output files
+	$('.outputs').remove();
+	if ( hash["outputs"] ) hash.outputs.forEach(function(outp) {
+		setupOutputFile(outp);
+	});
+	$('#addoutput').click(function () {
+		setupOutputFile();
+	});
+	
+	// autorun option
+	if (hash["autorun"])
+		autoRunPerl = true;
+	var autorunstate = $('#autorunstate');
+	$('#autoruntoggle').click(function () {
+		// the text keeps state (bit of a hack, I know)
+		autorunstate.text(
+			  autorunstate.text().match(/without/i)
+			? "with" : "without" );
+	});
+	
+	// "run perl" button
+	$('#runperl').click( function () {
+		clearStdOutput();
+		var rp_data = getFileData();
+		if (!rp_data) return;
+		delete rp_data.cmdline;
+		// send message to runner
+		buttonBlockers.runnerState = 1;
+		updateButtonState();
+		lastExitStatus = null;
+		runnerState("Requesting Perl Run...");
+		perlRunner.postMessage({ runPerl: rp_data }, '*');
+	});
+	
+	// "copy url / json" function
+	$('#copyurl').click(function () {
+		var data = getFileData();
+		if (!data) return;
+		delete data.argv;
+		if (!autorunstate.text().match(/without/i)) data.autorun=true;
+		if (mergeStdOutErr) data.mergeStdOutErr=true;
+		var loc = new URL(window.location);
+		loc.hash = encodeURIComponent(JSON.stringify(data));
+		copyit(loc);
+	});
+	$('#copyjson').click(function () {
+		var data = getFileData();
+		if (!data) return;
+		if (!autorunstate.text().match(/without/i)) data.autorun=true;
+		if (mergeStdOutErr) data.mergeStdOutErr=true;
+		copyit(JSON.stringify(data, null, "\t"));
+	});
+	
+	// start looking for the Perl runner
+	findPerlRunner();
+});
+
+</script>
+
+</head>
+<body>
+
+<div id="inputhere" style="display:none;"></div>
+
+<div id="perlctrl">
+	<button id="runperl"><code>perl</code> &#x25BA;</button>
+	<input type="text" id="argv" class="code" value='perl' />
+</div>
+
+<div id="runnerstate" class="text">
+	Loading...
+</div>
+
+<div id="runnererrors" style="display:none;">
+	<pre></pre>
+</div>
+
+<div id="stdout" class="codewithfn" style="display:none;">
+	<input type="text" class="filename code" readonly="readonly" value="STDOUT" size="14" />
+	<textarea></textarea>
+</div>
+
+<div id="stderr" class="codewithfn" style="display:none;">
+	<input type="text" class="filename code" readonly="readonly" value="STDERR" size="14" />
+	<textarea></textarea>
+</div>
+
+<div id="outputhere" style="display:none;"></div>
+
+<div class="text">
+	<textarea id="pageurl" style="display:none;"></textarea>
+	<div id="misctools">
+		<span id="showtools" class="fakelink">Show Tools</span>
+		<span id="thetools" style="display:none;">
+		&nbsp;
+		<span id="addscript" style="display:none;">&bull;
+		<span class="fakelink">Add Script</span>
+		</span>
+		&bull;
+		<span id="addinput" class="fakelink">Add Input File</span>
+		&bull;
+		<span id="addoutput" class="fakelink">Add Output File</span>
+		&bull;
+		<span id="mergestdoe" class="fakelink">Merge STDOUT+ERR</span>
+		&bull;
+		<span id="copyurl" class="fakelink">Copy URL</span>
+		/ <span id="copyjson" class="fakelink">JSON</span>
+		(<span id="autorunstate">with</span>
+		<span id="autoruntoggle" class="fakelink">autorun</span>)
+		</span>
+		</div>
+	</div>
+</div>
+
+<div class="text" id="footer" style="display:none;">
+	Powered by <a href="http://webperl.zero-g.net/" target="_blank" id="webperllink">WebPerl</a> (beta)
+	<!-- Link with target="_blank" may not work in a sandboxed iframe, so provide URL: -->
+	<span id="webperlurl" style="display:none;">&nbsp; <code>http://webperl.zero-g.net/</code></span>
+</div>
+
+</body>
+</html>
--- a/web/democode/perlrunner.html
+++ b/web/democode/perlrunner.html
@ -0,0 +1,178 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<title>WebPerl Perl Runner</title>
+
+<!-- ##### WebPerl - http://webperl.zero-g.net #####
+
+Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
+at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
+Berlin, Germany, http://www.igb-berlin.de
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl 5 itself: either the GNU General Public
+License as published by the Free Software Foundation (either version 1,
+or, at your option, any later version), or the "Artistic License" which
+comes with Perl 5.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+See the licenses for details.
+
+You should have received a copy of the licenses along with this program.
+If not, see http://perldoc.perl.org/index-licence.html
+##### -->
+
+<!-- Please see the documentation on how to use this in demo.html. -->
+
+<!-- Possible To-Do for Later: This whole thing could probably also be
+	accomplished with a Web Worker, but that would probably require a
+	stripped-down version of webperl.js (that loads things without
+	using window.* and especially document.*
+	https://developer.mozilla.org/en-US/docs/Web/API/Worker/Worker
+	https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope/importScripts
+	
+	Of course, at some point I should investigate how difficult it really
+	is to re-start an Emscripten program...
+	-->
+
+<script src="../webperl.js"></script>
+<!--script src="https://webperlcdn.zero-g.net/v0.09-beta/webperl.js"
+	integrity="sha256-1RaYAh/WfDl3WZl+BDpSuSycg4x88pfkAFSxhWjBONk=" crossorigin="anonymous"></script-->
+<script>
+"use strict";
+
+Perl.noMountIdbfs=true; // we're sandboxed
+Perl.endAfterMain=true; // act like command-line perl
+
+var knownClients = [];
+var currentClient; // which client we're running Perl for, also keeps state
+var curOutputFiles;
+var stdbuf = [null,'',''];
+
+function reportErr (err) {
+	if (currentClient)
+		currentClient.postMessage({ perlRunnerError: err },'*');
+	else
+		console.error(err);
+}
+
+Perl.addStateChangeListener(function (from,to) {
+	if (to=="Ended" && currentClient) {
+		for (var chan=1;chan<=2;chan++) // flush buffers
+			if (stdbuf[chan].length) {
+				currentClient.postMessage({ perlOutput: { chan:chan, data:stdbuf[chan] } },'*');
+				stdbuf[chan] = '';
+			}
+		currentClient.postMessage({ perlRunnerState: Perl.state,
+			exitStatus: Perl.exitStatus },'*');
+		for(var i=0; i<knownClients.length; i++)
+			if (knownClients[i]!=currentClient)
+				knownClients[i].postMessage({ perlRunnerState: Perl.state },'*');
+		if (curOutputFiles) {
+			var ofs = curOutputFiles.map(function (file) {
+				//TODO Later: Support binary files as well?
+				// {encoding:"binary"} => readFile returns Uint8Array
+				// Should then also provide the same support on FS.writeFile() as well
+				var of = { fn: file };
+				if (!file) return of;
+				try {
+					of.text = FS.readFile(file, {encoding:"utf8"});
+				}
+				catch (e) {
+					reportErr("couldn't read "+file+" because "+e);
+				}
+				return of;
+			});
+			currentClient.postMessage({ perlOutputFiles: ofs },'*');
+		}
+	}
+	else {
+		for(var i=0; i<knownClients.length; i++)
+			knownClients[i].postMessage({ perlRunnerState: Perl.state },'*');
+	}
+	if (to=="Ended") {
+		if (!currentClient)
+			console.error("Internal Error: Perl state change to Ended with no client");
+		window.location.reload(false);
+	}
+});
+
+Perl.output = function (str,chan) {
+	stdbuf[chan] += str;
+	var pos = stdbuf[chan].lastIndexOf("\n");
+	if (pos<0) return;
+	var lines = stdbuf[chan].slice(0,pos+1);
+	if (currentClient)
+		currentClient.postMessage({ perlOutput: { chan:chan, data:lines } },'*');
+	else
+		console.error("Internal Error: Output on",chan==1?"STDOUT":"STDERR","with no client:",lines);
+	stdbuf[chan] = stdbuf[chan].slice(pos+1);
+};
+
+function saveFile (fn, data) {
+	if (fn.substring(0,1)!='/') // if relative, make absolute
+		fn = FS.joinPath([FS.cwd(), fn]);
+	try {
+		FS.writeFile(fn, data);
+	}
+	catch (e) {
+		reportErr("couldn't write "+fn+" because "+e);
+	}
+}
+
+window.addEventListener('message', function (event) {
+	if (event.data["perlRunnerDiscovery"]) {
+		if (!knownClients.includes(event.source))
+			knownClients.push(event.source);
+		event.source.postMessage({ perlRunnerState: Perl.state },'*');
+	}
+	else if (event.data["runPerl"]) {
+		if (!knownClients.includes(event.source))
+			knownClients.push(event.source);
+		// check state
+		if (currentClient && currentClient !== event.source) {
+			console.error("Attempt to run Perl from",event.source,
+				"but am already running Perl for",currentClient);
+			reportErr("Attempt to run Perl (from "+event.origin
+				+") but am already running Perl for someone else (see JavaScript console)");
+			return;
+		} // else
+		currentClient = event.source;
+		if (Perl.state!="Ready") {
+			reportErr("Attempt to run Perl in state "+Perl.state);
+			return;
+		} // else
+		// set up files and run perl
+		var rp = event.data.runPerl;
+		//TODO: we don't check for overlaps in filenames between script+input files (maybe the editor should do that)
+		// one solution would be to just have the script be an input file (code mirror syntax highlighting based on filename?)
+		// note overlaps of output filenames with input files is ok
+		// we also don't check for duplicate filenames
+		if (rp["script"])
+			saveFile(rp["script_fn"] ? rp.script_fn : 'script.pl', rp.script);
+		//TODO Later: can we support STDIN? (probably need to look at webperl.js)
+		if (rp["inputs"])
+			rp.inputs.forEach(function (inp) {
+				if (!inp.fn) return;
+				saveFile(inp.fn, inp.text);
+			});
+		curOutputFiles = rp["outputs"];
+		Perl.start( rp["argv"] ? rp.argv : [] );
+	}
+	else console.warn("Perl Runner ignoring unknown message:", event.data);
+});
+
+Perl.init(function () {
+	Module['thisProgram'] = 'perl';
+	FS.currentPath = ENV.HOME; // NOTE: https://github.com/kripken/emscripten/issues/5873
+});
+
+</script>
+
+</head>
+<body>
+</body>
+</html>
--- a/web/mini_ide/webperl_mini_ide.html
+++ b/web/mini_ide/webperl_mini_ide.html
@ -4,7 +4,7 @@
 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
 <title>WebPerl (IDE)</title>

-<!-- ----- WebPerl - http://webperl.zero-g.net -----
+<!-- ##### WebPerl - http://webperl.zero-g.net #####

 Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
 at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
@ -25,7 +25,7 @@ You should have received a copy of the licenses along with this program.
 If not, see http://perldoc.perl.org/index-licence.html
 -->

-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.39.2/codemirror.min.css" integrity="sha256-I8NyGs4wjbMuBSUE40o55W6k6P7tu/7G28/JGUUYCIs=" crossorigin="anonymous" />
+<!--cacheable--><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.39.2/codemirror.min.css" integrity="sha256-I8NyGs4wjbMuBSUE40o55W6k6P7tu/7G28/JGUUYCIs=" crossorigin="anonymous" />
 <link rel="stylesheet" type="text/css" href="emscr_ide.css" />
 <style>
 button,.text {
@ -56,9 +56,9 @@ pre,.code,textarea {
 }
 </style>

-<script src="https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.39.2/codemirror.min.js" integrity="sha256-uRIJ6Wfou5cTtmcCvQNA9lvsYl8sUbZXxnfG+P79ssY=" crossorigin="anonymous"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.39.2/mode/perl/perl.min.js" integrity="sha256-Uu9QBfi8gU6J/MzQunal8ewmY+i/BbCkBrcAXA5bcCM=" crossorigin="anonymous"></script>
-<script src="https://code.jquery.com/jquery-3.3.1.min.js" integrity="sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin="anonymous"></script>
+<!--cacheable--><script src="https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.39.2/codemirror.min.js" integrity="sha256-uRIJ6Wfou5cTtmcCvQNA9lvsYl8sUbZXxnfG+P79ssY=" crossorigin="anonymous"></script>
+<!--cacheable--><script src="https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.39.2/mode/perl/perl.min.js" integrity="sha256-Uu9QBfi8gU6J/MzQunal8ewmY+i/BbCkBrcAXA5bcCM=" crossorigin="anonymous"></script>
+<!--cacheable--><script src="https://code.jquery.com/jquery-3.3.1.min.js" integrity="sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin="anonymous"></script>
 <script src="emscr_ide.js"></script>
 <script src="../webperl.js"></script>
 <script>
--- a/web/regex_tester.html
+++ b/web/regex_tester.html
@ -4,7 +4,7 @@
 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
 <title>WebPerl Regex Tester</title>

-<!-- ----- WebPerl - http://webperl.zero-g.net -----
+<!-- ##### WebPerl - http://webperl.zero-g.net #####

 Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
 at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
@ -23,11 +23,10 @@ See the licenses for details.

 You should have received a copy of the licenses along with this program.
 If not, see http://perldoc.perl.org/index-licence.html
-->
+##### -->

 <meta name="viewport" content="width=600" />
-<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/normalize/8.0.0/normalize.min.css"
-	integrity="sha256-oSrCnRYXvHG31SBifqP2PM1uje7SJUyX0nTwO2RJV54=" crossorigin="anonymous" />
+<!--cacheable--><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/normalize/8.0.0/normalize.min.css" integrity="sha256-oSrCnRYXvHG31SBifqP2PM1uje7SJUyX0nTwO2RJV54=" crossorigin="anonymous" />
 <style>
 body {
 	margin: 0.4em;
@ -35,7 +34,7 @@ body {
 div {
 	font-family: Calibri, Ubuntu, "Droid Sans", Tahoma, Arial, Helvetica, sans-serif;
 }
-pre,tt,textarea {
+pre,kbd,var,code,samp,textarea {
 	font-family: Consolas, "Ubuntu Mono", "Droid Sans Mono", "Lucida Console", "Courier New", Courier, monospace;
 }
 pre {
@ -49,6 +48,10 @@ pre {
 	min-height: 1em;
 	display: flow-root;
 }
+.samptxt_outer {
+	display: block;
+	overflow: auto;
+}
 pre.samptxt {
 	padding: 2px;
 	display: inline-block;
@ -56,14 +59,16 @@ pre.samptxt {
 textarea.samp_ta {
 	min-width: 10em;
 	min-height: 1em;
-	max-width: calc(100% - 1.5em);
-	width: 100%;
+	width: calc(100% - 1.7em);
+	height: 1.1em;
 	border: 1px solid grey;
 	padding: 1px;
 	display: inline-block;
+	resize: vertical;
 }
 .closebtn {
 	float: right;
+	margin-left: 5px;
 	cursor: pointer;
 }
 .re_output {
@ -95,10 +100,9 @@ textarea.samp_ta {
 </style>

 <script src="webperl.js"></script>
-<!--script src="https://webperlcdn.zero-g.net/v0.07-beta/webperl.js"
-	integrity="sha256-jL8SB7St5ou4+hb0frK0k6VCQXsWQ1wolDrdU7i4juc" crossorigin="anonymous"></script-->
-<script src="https://code.jquery.com/jquery-3.3.1.min.js"
-	integrity="sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin="anonymous"></script>
+<!--script src="https://webperlcdn.zero-g.net/v0.09-beta/webperl.js"
+	integrity="sha256-1RaYAh/WfDl3WZl+BDpSuSycg4x88pfkAFSxhWjBONk=" crossorigin="anonymous"></script-->
+<!--cacheable--><script src="https://code.jquery.com/jquery-3.3.1.min.js" integrity="sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin="anonymous"></script>

 <script type="text/perl">
 use warnings;
@ -112,6 +116,10 @@ sub pp { Data::Dumper->new([@_])->Useqq(1)->Terse(1)->Pair('=>')

 our $RUN_CODE_IN_IFRAME=0;

+# Possible To-Do for Later: Subs in preamble code produce "subroutine redefined" warnings.
+# I could think about whether there's a decent way around that.
+# Example: https://www.perlmonks.org/?node_id=1225457
+
 my $run_code_body = <<'END_CODE';
 	my (@warns,@output);
 	
@ -146,11 +154,18 @@ END_CODE
 my $runcode_iframe;
 my $runcode_message_callback; # assume a single callback for now
 if ($RUN_CODE_IN_IFRAME) { # https://www.html5rocks.com/en/tutorials/security/sandboxed-iframes/
+	my $webperlurl;
+	$jq->('script')->each(sub { $webperlurl=$_[1]->{src} if $_[1]->{src}=~/\bwebperl\.js\z/ });
+	if (!$webperlurl) {
+		warn "Warning: Could not determine URL of webperl.js\n";
+		$webperlurl = 'webperl.js';  # probably won't work due to same-origin
+	}
 	my $iframe_html = <<~'END_IFRAME_HTML';
 		<html>
 		<head>
-		<script src="https://webperlcdn.zero-g.net/v0.07-beta/webperl.js"
-			integrity="sha256-jL8SB7St5ou4+hb0frK0k6VCQXsWQ1wolDrdU7i4juc" crossorigin="anonymous"></scr__ipt>
+		<script src="__WEBPERLURL__"></scr__ipt>
+		<!--script src="https://webperlcdn.zero-g.net/v0.09-beta/webperl.js"
+			integrity="sha256-1RaYAh/WfDl3WZl+BDpSuSycg4x88pfkAFSxhWjBONk=" crossorigin="anonymous"></scr__ipt-->
 		<script>
 		Perl.noMountIdbfs=true; // we're sandboxed
 		</scr__ipt>
@ -175,8 +190,10 @@ if ($RUN_CODE_IN_IFRAME) { # https://www.html5rocks.com/en/tutorials/security/sa
 		END_IFRAME_HTML
 	$iframe_html=~s#</\w+\K__(?=\w+>)##ig;
 	$iframe_html=~s/__RUNCODEBODY__/$run_code_body/;
+	$iframe_html=~s/__WEBPERLURL__/$webperlurl/g;
 	my $iframe_blob_url = js('URL')->createObjectURL(
 		WebPerl::js_new('Blob',[$iframe_html],{type=>"text/html;charset=utf-8"}) );
+	#TODO Later: Why does the message passing not work when I remove the "sandbox" attr?
 	my $iframe = $jq->('<iframe/>', {id=>'PerlEval_IFrame', sandbox=>'allow-scripts',
 		src=>$iframe_blob_url} )->hide->appendTo('body');
 	$runcode_iframe = $iframe->[0]{contentWindow};
@ -202,46 +219,56 @@ if ($RUN_CODE_IN_IFRAME) { # https://www.html5rocks.com/en/tutorials/security/sa
 	my $start_time = time;
 	my $intid; $intid = $window->setInterval(sub {
 		if (time-$start_time>10) {
-			$window->alert("Failed to get response from Perl in IFrame, loading failed?");
+			if ($window->confirm("Perl does not appear to have loaded yet, keep waiting?\n"
+			    ."(If you are on a slow connection, click OK to keep waiting.)")) {
+				$start_time = time;
+			}
+			else {
 				$window->clearInterval($intid);
 			}
+		}
 		elsif ($got_response)
 			{ $window->clearInterval($intid) }
 		else { update() }
 	}, 500);
 }
+$jq->('#loading')->text('Loading (Stage 2/2)...');

 sub sample_init {
 	my $samp = shift;
 	state $samp_id = 'a';
 	$samp->attr('id',"samp_".$samp_id++) unless $samp->attr('id');
-	my $samptxt = $samp->children(".samptxt");
+	my $samptxt = $samp->find(".samptxt");
+	my $samptxt_outer = $jq->('<div/>',{class=>"samptxt_outer"});
+	$samptxt->wrap($samptxt_outer);
 	my $samp_ta = $jq->('<textarea/>', {class=>"samp_ta"});
 	$samp_ta->hide();
 	$samp_ta->appendTo($samp);
 	my $closebtn = $jq->('<div/>', {html=>"&#x274E;",class=>"closebtn",
 		title=>"Delete Sample"});
-	$closebtn->appendTo($samp);
+	$closebtn->prependTo($samp);
 	$jq->('<pre/>', {class=>'re_output'})->appendTo($samp);
 	$jq->('<pre/>', {class=>'re_warns'})->appendTo($samp);
 	$jq->('<pre/>', {class=>'re_errors'})->appendTo($samp);
 	$samp->click(sub {
 		return if $samp_ta->is(':visible');
-		$samp_ta->height($samptxt->height);
 		$samp_ta->val($samptxt->text);
+		my $th = $samptxt->height;
 		$samptxt->hide;
 		$samp_ta->show;
+		my $sh = $samp_ta->[0]{scrollHeight}-2; # subtract padding
+		# I'm not quite sure of the rounding that's happening in the browser yet...
+		$samp_ta->height( int($sh) > int($th)+1 ? $sh : $th );
 		$samp_ta->focus;
 	});
 	$samp_ta->focusout(sub {
 		$samptxt->text($samp_ta->val);
-		$samptxt->height($samp_ta->height);
 		$samp_ta->hide;
 		$samptxt->show;
 		update();
 	});
-	$samp_ta->on('input', sub {
-		$samp_ta->height($samp_ta->[0]->{scrollHeight}-2); # subtract padding
+	$samp_ta->on('input', sub { # autoexpand for new lines
+		$samp_ta->height($samp_ta->[0]{scrollHeight}-2); # subtract padding
 	});
 	$closebtn->click(sub { $samp->remove; update() });
 }
@ -257,6 +284,7 @@ sub newsamp {
 	update();
 	return $samp;
 }
+#TODO: Adding samples causes the code table to grow, but not shrink when they are removed
 $addsamp->click(sub { newsamp('')->click });

 # $re_debug is actually a parameter to update()/actual_update(), but since
@ -325,8 +353,9 @@ $ta_flags->keyup( \&update);

 js('$(window)')->on('hashchange',\&hashchange);

-$ta_regex->on('input', sub {
-	$ta_regex->height($ta_regex->[0]->{scrollHeight});
+#TODO: The auto-sizing causes the textarea to grow on Chrome mobile
+$ta_regex->on('input', sub { # autoexpand for new lines
+	$ta_regex->height($ta_regex->[0]{scrollHeight});
 });

 hashchange();
@ -370,7 +399,7 @@ sub actual_update {
 	
 	my @samps;
 	for my $sample (map {$jq->($_)} $jq->('.sample')->@*) {
-		my $samptxt = $sample->children('.samptxt');
+		my $samptxt = $sample->find('.samptxt');
 		my $text = $samptxt->text;
 		push @samps, $text; # for use below
 		my $code = $precode . ( $re_debug ? "use re \"debug\";\n" : '' )
@ -381,7 +410,7 @@ sub actual_update {
 				.'print(STDERR Data::Dumper->new([$input],["input"])->Indent(0)->Dump,'
 				.'"\n-- Code --\n",' . pp($code) . ',"----\n")}' . "\n"
 				. $code . "\n"
-				. q{print STDERR "----\n",Data::Dumper->new([\@output],["*output"])->Indent(0)->Dump;};
+				. q{print STDERR "----\n",Data::Dumper->new([\@output],["*output"])->Indent(0)->Dump,"\n";};
 		run_code($sample->attr('id'), $code, $text, \&run_code_callback);
 	}
 	
@ -446,7 +475,7 @@ sub run_code_callback {
 	if (!$sample->{length}) {
 		warn "got callback for nonexistent sample ".$rv->{context};
 		return }
-	my $samptxt  = $sample->children('.samptxt');
+	my $samptxt  = $sample->find('.samptxt');
 	my $text = $samptxt->text;
 	my $errs = '';
 	if ( $rv->{out} && $rv->{out}->@* ) {
@ -521,6 +550,7 @@ sub run_code_callback {
 	$sample->children('.re_warns')->text( join "\n", $rv->{warns}->@* );
 	$errs = "### Errors ###\n$errs" if $errs=~/\S/;
 	$sample->children('.re_errors')->text($errs);
+	state $loading = 1; if ($loading) { $jq->('#loading')->remove; $loading=0 }
 }

 sub escape_html { # apparently no built-in JS function for this (?), so do it manually
@ -539,7 +569,7 @@ sub hashchange {
 	}
 	if (exists $res{regex} && exists $res{flags}) {
 		$ta_regex->val($res{regex});
-		$ta_regex->height($ta_regex->[0]->{scrollHeight});
+		$ta_regex->height($ta_regex->[0]{scrollHeight});
 		$ta_flags->val($res{flags});
 		sampcode_show() if $res{showsampcode};
 		precode_show($res{pre}) if exists $res{pre};
@ -559,22 +589,26 @@ sub hashchange {
 </head>
 <body>

-<div style="margin-bottom:1em;font-size:1.2em"><b>Perl Regex Tester</b>
+<div style="margin-bottom:1em;font-size:1.2em;text-align:center;"><b>Perl Regex Tester</b>
 - powered by <a href="http://webperl.zero-g.net" target="_blank">WebPerl</a> (beta)</div>

-<div style="margin-bottom:1em">
-<div><button id="precodebtn">Add Preamble Code</button></div>
-<textarea id="precode" rows="3" cols="80" style="display:none">
-my $x = "foo";  # example
-</textarea>
+<div id="loading" style="position:absolute;left:40%;font-size:1.2em;font-weight:bold;color:red;">Loading (Stage 1/2)...</div>
+
+<div style="margin-bottom:1em;">
+<div>
+	<button id="precodebtn">Add Preamble Code</button>
+</div>
+<div>
+	<textarea id="precode" rows="3" cols="80" style="display:none;min-height:1.2em;min-width:10em;max-width:100%;">my $x = "foo";  # example</textarea>
+</div>
 </div>

-<div style="margin-bottom:1em">
-<div><tt style="vertical-align: top;">m{</tt
-	><textarea id="regex" rows="1" cols="50" style="height:1.2em"
+<div style="margin-bottom:1em;white-space:nowrap;">
+<div><code style="vertical-align:top;">m{</code
+	><textarea id="regex" rows="1" cols="60" style="height:1.2em;min-height:1.2em;min-width:10em;"
 		title="Perl Regular Expression">wo(.)</textarea
-	><tt style="vertical-align: text-bottom;">}</tt
-	><textarea id="flags" rows="1" cols="5" style="height:1.2em"
+	><code style="vertical-align:text-bottom;">}</code
+	><textarea id="flags" rows="1" cols="7"  style="height:1.2em;min-height:1.2em;min-width:3em;"
 		title="Flags for Regular Expression">gi</textarea></div>
 <pre id="warnmsgs" class="re_warns"></pre>
 </div>
@ -585,29 +619,38 @@ my $x = "foo";  # example
 <div class="sample">
 	<pre class="samptxt">Oh, what a wonderful world!</pre>
 </div>
-<div style="text-align:right">
+<div style="text-align:right;">
+	<!-- note this is used as the insertion point for new samples, be careful when changing -->
 	<button id="addsamp">Add Sample</button>
 </div>

-<div style="margin-top:0.5em">
+<div style="margin-top:0.5em;">
+<div style="white-space:nowrap;">
 	<button id="sampcodebtn">Show Example Perl Code</button>
-	<span id="codecopy" style="cursor:pointer" title="Copy to Clipboard">&#x1F4CB;</span><br/>
-	<textarea id="samplecode" rows="20" cols="80" style="font-size:0.8em;display:none" readonly="readonly"></textarea>
+	<span id="codecopy" style="cursor:pointer;" title="Copy to Clipboard">&#x1F4CB;</span><br/>
+</div>
+<div>
+	<textarea id="samplecode" rows="20" cols="80" style="display:none;font-size:0.8em;min-height:1.2em;min-width:10em;max-width:100%;" readonly="readonly"></textarea>
+</div>
 </div>

-<div style="margin-top:0.5em">
-	<button id="re_debug"><tt>use re "debug";</tt></button>
+<div style="margin-top:0.5em;">
+	<button id="re_debug"><code>use re "debug";</code></button>
 </div>

-<div style="margin-top:0.5em">
+<div style="margin-top:0.5em;">
+<div style="white-space:nowrap;">
 	URL:
-	<textarea id="thisurl" rows="2" cols="80" style="height:2.4em;font-size:0.8em" readonly="readonly"></textarea>
-	<span id="urlcopy" style="cursor:pointer" title="Copy to Clipboard">&#x1F4CB;</span>
+	<span id="urlcopy" style="cursor:pointer;" title="Copy to Clipboard">&#x1F4CB;</span>
+</div>
+<div>
+	<textarea id="thisurl" rows="2" cols="80" style="font-size:0.8em;height:2.4em;min-height:1.2em;min-width:10em;max-width:100%;" readonly="readonly"></textarea>
+</div>
 </div>

-<pre id="perlinfo" style="margin-top:0.5em">perl v?, WebPerl v?</pre>
+<pre id="perlinfo" style="margin-top:0.5em;">perl v?, WebPerl v?</pre>

-<div style="margin-top:1em;font-size:0.8em">
+<div style="margin-top:1em;font-size:0.8em;">
 Perl Regular Expression Documentation:
 <a href="http://perldoc.perl.org/perlretut.html" target="_blank">Tutorial</a>,
 <a href="http://perldoc.perl.org/perlrequick.html" target="_blank">Quick Start</a>,
--- a/web/webperl.js
+++ b/web/webperl.js
@ -28,11 +28,12 @@ var Perl = {
 	trace: false,         // user may enable this
 	endAfterMain: false,  // user may enable this (before Perl.init)
 	noMountIdbfs: false,  // user may enable this (before Perl.start)
-	WebPerlVersion: 'v0.07-beta',
+	WebPerlVersion: 'v0.11-beta',  // user may read (only!) this
+	state: "Uninitialized",  // user may read (only!) this
+	exitStatus: undefined,   // user may read (only!) this
 	Util: {},
 	// internal variables:
 	initStepsLeft: 2, // Must match number of Perl.initStepFinished() calls!
-	state: "Uninitialized",
 	readyCallback: null,
 	stdout_buf: "", stderr_buf: "", // for our default Perl.output implementation
 	dispatch: function (perl) {
@ -124,11 +125,12 @@ Perl._saveAndRun = function (script) {
 			// run Perl async so that the window has a chance to refresh
 			window.setTimeout(function () { Perl.start( [ file ] ); }, 1);
 		}
-		catch (err) { console.error("Perl:",err); alert("Save to "+file+"Failed: "+err); }
+		catch (err) { console.error("Perl:",err); alert("Save to "+file+" failed: "+err); }
 	});
 };

 Perl.changeState = function (newState) {
+	if (Perl.state==newState) return;
 	var oldState = Perl.state;
 	Perl.state = newState;
 	if (Perl.stateChanged) {
@ -209,18 +211,20 @@ Perl.init = function (readyCallback) {
 		stdin: function () { return null },
 		arguments: ['--version'],
 		onAbort: function () {
+			console.error("Perl: Aborted (state",Perl.state,")");
+			alert("Perl aborted in state "+Perl.state);
+			Perl.exitStatus = -1;
 			Perl.changeState("Ended");
-			console.error("Perl: Aborted (state "+Perl.state+")");
-			alert("Perl aborted");
 		},
 		onExit: function (status) { // note this may be called multiple times
-			Perl.changeState("Ended");
 			if (status==0)
-				console.info( "Perl: Exit status "+status+" (state "+Perl.state+")");
+				console.debug( "Perl: Exit status",status,"(state",Perl.state,")");
 			else {
-				console.error("Perl: Exit status "+status+" (state "+Perl.state+")");
+				console.error("Perl: Exit status",status,"(state",Perl.state,")");
 				alert("Perl exited with exit status "+status+" in state "+Perl.state);
 			}
+			Perl.exitStatus = status;
+			Perl.changeState("Ended");
 		},
 		onRuntimeInitialized: function () {
 			console.debug("Perl: Module.onRuntimeInitialized");
@ -258,13 +262,7 @@ Perl.init = function (readyCallback) {
 			Module._main = function() {
 				origMain.apply(this, arguments);
 				console.debug("Perl: main() has ended, ending perl...");
-				var status = ccall("emperl_end_perl","number",[],[]);
-				if (status==0) {
-					// we know that in this case, there is no event thrown to us (since exit() isn't called)
-					// so we have to transition states manually
-					Module.onExit(status);
-				}
-				return status;
+				return Perl.end();
 			};
 		});
 	}
@ -339,21 +337,28 @@ Perl.eval = function (code) {
 Perl.end = function () {
 	if (Perl.state!="Running") {
 		if (Perl.state=="Ended") {
-			console.warn("Perl: end called when already Ended");
+			console.debug("Perl: end called when already Ended");
 			return;
 		}
 		else throw "Perl: can't call end in state "+Perl.state;
 	}
-	else Perl.changeState("Ended");
+	var status;
 	try {
-		ccall("emperl_end_perl","number",[],[]);
+		status = ccall("emperl_end_perl","number",[],[]);
+		// we know that emperl_end_perl only calls exit() on a nonzero exit code,
+		// which means no ExitStatus exception gets thrown on a zero exit code,
+		// so we *should* reach this point only with status==0
+		if (status!=0) console.warn("emperl_end_perl returned with status",status);
+		Module.onExit(status); // does Perl.changeState() for us
 	}
 	catch (e) {
 		if (e instanceof ExitStatus) {
 			console.debug("Perl: end: ",e);
-			Module.onExit(e.status);
+			status = e.status;
+			Module.onExit(e.status); // does Perl.changeState() for us
 		} else throw e;
 	}
+	return status;
 };

 Perl.next_glue_id = 0;
--- a/web/webperl.psgi
+++ b/web/webperl.psgi
@ -6,6 +6,7 @@ use Plack::MIME;
 use Plack::Builder qw/builder enable mount/;
 use Plack::App::Directory ();
 use Cpanel::JSON::XS qw/decode_json encode_json/;
+require Plack::Middleware::CrossOrigin;

 # Demo Plack server for WebPerl
 # run me with "plackup webperl.psgi"
@ -42,6 +43,7 @@ my $app_ajaxtest = sub {

 builder {
 	enable 'SimpleLogger';
+	enable 'CrossOrigin', origins => '*';
 	enable 'Static',
 		path => qr/\.(?:html?|js|css|data|mem|wasm|pl)\z/i,
 		root => $SERV_ROOT;
--- a/web/webperl_demo.html
+++ b/web/webperl_demo.html
@ -27,7 +27,7 @@ js('document')->getElementById('my_button')
 </script>

 <!-- Example 3: Using jQuery -->
-<script src="https://code.jquery.com/jquery-3.3.1.min.js" integrity="sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin="anonymous"></script>
+<!--cacheable--><script src="https://code.jquery.com/jquery-3.3.1.min.js" integrity="sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin="anonymous"></script>
 <script type="text/perl">
 use warnings;
 use strict;
Author	SHA1	Message	Date
Hauke D	16bc09d89a	Added patch for Emscripten 1.39.16 (closes #16 ) Thanks @reneeb!	6 years ago
Hauke D	d1206e84fb	Added more info to an error message Thanks to Bernhard M. Wiedemann for pointing this out!	6 years ago
Hauke D	00e738560f	Updated for Perl 5.30.0 (WebPerl v0.11-beta)	6 years ago
Hauke D	993d24d38f	Added gui_sweet example	7 years ago
Hauke D	1c268976bb	Added gui_basic example	7 years ago
Hauke D	5306c3b819	Added experiments/use_http.html	7 years ago
Hauke D	ac50d81bc2	Tweaked build script for older Emscripten versions After the update for 1.38.28, the build script didn't recognize 1.38.1* if the patch had already been applied.	7 years ago
Hauke D	6f2173d29a	Updates for v0.09-beta release	7 years ago
Hauke D	22b608c572	Added a reminder to source emperl_config.sh	7 years ago
Hauke D	32a3bbb8a1	Updated for Perl v5.28.1	7 years ago
Hauke D	ad53548513	Updated for build with Emscripten 1.38.28 Unfortunately, this for now also includes building without "-s ASSERTIONS=2".	7 years ago
Hauke D	6be93653bf	Added module "Future" Note on Changes.md: The Digest::* modules were added in haukex/emperl5@32197c61c8	7 years ago
Hauke D	09bd3384e2	Closed #9 by downgrading it to a code comment :-)	7 years ago
Hauke D	fe8e030cdc	Added experimental Perl 6 support	7 years ago
Hauke D	3e8acce5f3	Adjust paths For haukex/emperl5@bc78e33552	7 years ago
Hauke D	f7b5822176	Distribute the cpanfile too	7 years ago
Hauke D	0f67a1cbfa	build.pl shouldn't ask for pull if local is newer	7 years ago
Hauke D	1c9a0c9dbf	Fixed build.pl --forceemperl/--remakeout These options previously required emperl.js to already exist.	7 years ago
Hauke D	7dd3d9fbe1	Added cpanfiles for dependencies (closes #6 ) Thanks, @davehodg!	7 years ago
Hauke D	25bc332853	Updated Readme with info on getting docs	7 years ago
Hauke D	edde6ab854	Update	7 years ago
Hauke D	29023c59c5	Improved toolbar look a bit	7 years ago
Hauke D	8de1094002	Don't show URL until link is clicked Depending on whether the editor is sandboxed or not, the link may or may not work.	7 years ago
Hauke D	a8f0ba120e	Attribution	7 years ago
Hauke D	d856a1b817	Made "merge STDOUT+ERR" option conf'able in editor	7 years ago
Hauke D	3d90c22fe7	Added "autorun" option	7 years ago
Hauke D	1381ced6fe	Allow passing in argv array instead of cmdline Inspired by Discipulus from PerlMonks :-)	7 years ago
Hauke D	287e449c5e	Added "Copy JSON" function	7 years ago
Hauke D	be58e94d75	Added "show/hide tools" feature	7 years ago
Hauke D	0b00c652d7	Minor comment changes	7 years ago
Hauke D	1b66b69563	Added reference to documentation	7 years ago
Hauke D	96a5016e22	Added examples of "IFrame Resizer"	7 years ago
Hauke D	25a5ca99ad	Added small beta notice	7 years ago
Hauke D	b97040cccc	Merge branch 'democode' into 'master'	7 years ago
Hauke D	7577c5d6d7	Tiny fixups	7 years ago
Hauke D	6d8fad9b1a	Editor can now load runner automatically	7 years ago
Hauke D	c3adf73863	Documentation	7 years ago
Hauke D	c0021d8214	Design updates e.g. no more hover stuff (not good for mobile)	7 years ago
Hauke D	f03b6a93e6	Simplified fonts	7 years ago
Hauke D	94d11c36e9	Change "Exit status 0" message to debug level	7 years ago
Hauke D	de081b1d70	Moved "Add Input/Output File" links	7 years ago
Hauke D	e00b0a148b	Added ability to add/remove script	7 years ago
Hauke D	9e5319bbfc	Just moved some code blocks around	7 years ago
Hauke D	e79f03687e	Minor edits	7 years ago
Hauke D	93c3bf4e38	Implemented "copy URL"	7 years ago
Hauke D	32fafd2669	Modals are no longer needed	7 years ago
Hauke D	93b73c04db	Reworked file add/rename/delete handling Also a few minor fixes in perlrunner	7 years ago
Hauke D	2ef4af02cb	Refactored code for file editing	7 years ago
Hauke D	f70e5a09f4	Updated demo.html	7 years ago
Hauke D	aa2cf82a03	Added "add", "delete", and "rename" of files	7 years ago
Hauke D	457f54d5ad	Changed format of input file passing	7 years ago
Hauke D	226e65255f	Some refactoring	7 years ago
Hauke D	b2e76c280d	Moved setup of input files to function	7 years ago
Hauke D	2f4eff19a1	Major update of "democode"	7 years ago
Hauke D	310bb92b2c	Moved "democode" to "web" dir	7 years ago
Hauke D	bf660de3c5	HTML comments shouldn't contain double dashes	7 years ago
Hauke D	6aeddd3be9	Added "cacheable" comments to more resources	7 years ago
Hauke D	07f72bd8dd	Replaced cache.pl with htmlrescache See the .gitattributes file.	7 years ago
Hauke D	e12f1aa25a	Added notes on Web Workers	7 years ago
Hauke D	ab287a5f4c	Don't report state non-changes If the state doesn't actually change, don't report it. This mostly applies to some rare cases where the listeners could be called for Ended->Ended.	7 years ago
Hauke D	2f695e9f31	A bit of research on xterm.js for input	7 years ago
Hauke D	904fa53a05	Added xterm.js experiment	7 years ago
Hauke D	b04ac672d5	User can now continue waiting for Perl load	7 years ago
Hauke D	4718404b50	Added "debug" option to cache.pl	7 years ago
Hauke D	8f5c7b177b	Added "use wget" option to cache.pl	7 years ago
Hauke D	fde975c853	Added a To-Do	7 years ago
Hauke D	044c55394e	Work on "democode" experiment (curr. not working) Currently not working!	7 years ago
Hauke D	1784206275	Added cache.pl	7 years ago
Hauke D	fd678a6d9f	Regex tester iframe can fetch from local server	7 years ago
Hauke D	4a7dd5709b	Added CORS to webperl.psgi	7 years ago
Hauke D	b87f932e93	Added Perl.exitStatus and updated Perl.end() Also refactored a bit of the internal exit/end logic	7 years ago
Hauke D	b5afdc6a4e	Updated gitignore	7 years ago
Hauke D	792b4ebd7d	Added experimental "democode" dir The idea is to be able to embed these iframes in other pages, have them be sandboxed, and still work to run Perl code. This is currently completely unfinished work!	7 years ago
Hauke D	afc877f6c4	Updated after W3C Validator run Now passes without errors	7 years ago
Hauke D	52271aeafe	Style updates Mostly made textareas a little more well-behaved in terms of scrolling, wrapping, and sizing	7 years ago
Hauke D	1cac09ccf3	Added loading state indicator	7 years ago
Hauke D	d7d5541428	Moved To-Do's to the "Notes" page `9fe1756f59`	7 years ago
Hauke D	c9deeccb0c	Minor fix in debug output	7 years ago