qq(<meta\nhttp-equiv="Content-Type"\ncontent="text/html; charset=utf-8"\n/>),
"<title>$title</title>",
"</head><body><pre>", $str , '</pre></body></html>';
+STDOUT->flush;
+
+# keep mtime on website consistent so clients can cache
+if (-f STDIN && -f STDOUT) {
+ my @st = stat(STDIN);
+ utime($st[8], $st[9], \*STDOUT);
+}