html/head/head-by-script-and-parser-1.html.cgi

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

$| = 1;

print qq[Content-Type: text/html; charset=utf-8

<!DOCTYPE HTML>
<html style="border: blue 0.5em solid; padding: 0.5em; cursor: pointer"
    onclick="
      var head = document.createElement ('head');
      head.setAttribute ('style', 'border: orange 0.5em solid; padding: 0.5em; display: block; margin: 0.5em');
      head.setAttribute ('data-source', 'html/\@onclick');
      document.documentElement.appendChild (head);
    ">];

sleep 2;

print qq[<head data-source="html/head" style="border: blue 0.5em solid; padding: 0.5em; display: block; margin: 0.5em">];

sleep 2;

print q[<body style="border: blue 0.5em solid; padding: 0.5em; margin: 0.5em">];

sleep 2;

print q[<p><a href="javascript:alert (document.innerHTML || document.documentElement.outerHTML || document.documentElement.innerHTML)">Check DOM of this page!</a>];

print q[<p>] . rand;
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	$\| = 1;
6
7	print qq[Content-Type: text/html; charset=utf-8
8
9	<!DOCTYPE HTML>
10	<html style="border: blue 0.5em solid; padding: 0.5em; cursor: pointer"
11	onclick="
12	var head = document.createElement ('head');
13	head.setAttribute ('style', 'border: orange 0.5em solid; padding: 0.5em; display: block; margin: 0.5em');
14	head.setAttribute ('data-source', 'html/\@onclick');
15	document.documentElement.appendChild (head);
16	">];
17
18	sleep 2;
19
20	print qq[<head data-source="html/head" style="border: blue 0.5em solid; padding: 0.5em; display: block; margin: 0.5em">];
21
22	sleep 2;
23
24	print q[<body style="border: blue 0.5em solid; padding: 0.5em; margin: 0.5em">];
25
26	sleep 2;
27
28	print q[<p><a href="javascript:alert (document.innerHTML \|\| document.documentElement.outerHTML \|\| document.documentElement.innerHTML)">Check DOM of this page!</a>];
29
30	print q[<p>] . rand;