# leading output
$header{content_type} = "text/html; charset=$meta->{charset}";
- print <<"EOT";
-<!DOCTYPE html>
-<html lang="en">
-
-<head>
-<meta http-equiv="content-type" content="$header{content_type}">
-<title>$meta->{title}</title>
-EOT
+ say '<!DOCTYPE html>';
+ say '<html lang="en">';
+ say '';
+ say '<head>';
+ say sprintf '<meta http-equiv="content-type" content="%s">', $header{content_type};
+ say sprintf '<title>%s</title>', $meta->{title};
say sprintf '<meta name="description" content="%s">', EscapeHTML($_)
for join(' ', @{ $meta->{description} }) || ();
say sprintf '<meta name="keywords" content="%s">', EscapeHTML($_)
say for stylesheet($meta->{stylesheet});
say for map { @{$_} } $meta->{raw} || ();
say '<meta name="robots" content="noindex">' if $Dev;
- say qq{</head>\n\n<body id="$file">};
+ say '</head>';
+ say '';
+ say sprintf '<body id="%s">', $file;
# development version indicator
printf '<p style="%s">beta</p>', join('; ',