- $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>
-<meta name="description" content="$meta->{description}">
-<meta name="keywords" content="$meta->{keywords}">
-<meta name="viewport" content="width=device-width, initial-scale=1">
-<link rel="icon" type="image/png" href="/clip.png">
-EOT
- say for stylesheet($meta->{stylesheet});
- say for $meta->{raw} || ();
+ say '<!DOCTYPE html>';
+ say '<html lang="en">';
+ say '';
+ say '<head>';
+ say sprintf '<meta http-equiv="content-type" content="%s">', $_
+ for $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($_)
+ for join(', ', @{ $meta->{keywords} }) || ();
+ say '<meta name="viewport" content="width=device-width, initial-scale=1">';
+ say '<link rel="icon" type="image/png" href="/clip.png">';
+ say for map { @{$_} } $meta->{raw} || ();