#!/usr/bin/perl use strict; print qq[Content-Type: text/html; charset=utf-8\n\n]; print qq[]; print qq[
U-01000401: ]; print qq[\xf9\x80\x80\x90\x81]; print q[
FAIL (noscript)
NOTE: IANA definition for UTF-8
references RFC 3629,
which in turn normatively references the Unicode Standard. They don't
allow characters greater than U+10FFFF.
];