utf8/bom/utf8-bom-1.html.cgi

#!/usr/bin/perl
use strict;

print qq[Content-Type: text/html; charset=utf-8\n\n];
print qq[\xEF\xBB\xBFXXXXXX];
print q[
  <p id=result class=FAIL>FAIL (noscript)</p>
  <script>
    var r = document.getElementById ('result');
    r.firstChild.data = 'FAIL (script)';
    if (document.body.firstChild.data.match (/^XXXXXX/)) {
      r.firstChild.data = 'PASS';
      r.className = 'PASS';
    } else {
      r.firstChild.data = 'FAIL';
    }
  </script>
];
1	#!/usr/bin/perl
2	use strict;
3
4	print qq[Content-Type: text/html; charset=utf-8\n\n];
5	print qq[\xEF\xBB\xBFXXXXXX];
6	print q[
7	<p id=result class=FAIL>FAIL (noscript)</p>
8	<script>
9	var r = document.getElementById ('result');
10	r.firstChild.data = 'FAIL (script)';
11	if (document.body.firstChild.data.match (/^XXXXXX/)) {
12	r.firstChild.data = 'PASS';
13	r.className = 'PASS';
14	} else {
15	r.firstChild.data = 'FAIL';
16	}
17	</script>
18	];