+if (open my $log, '<', 'UPDATE') {{
+ my $line = readline $log;
+ $line or next; # explicitly ignore empty input
+ EscapeHTML $line;
+ my ($date, $subject) = split /[\t\n]/, $line;
+ $date =~ s/ \K/<small>/ and $date .= '</small>';
+ $subject =~ s{\A(\w+)(?=: )}{showlink($1, -e "$1.plp" && "/$1")}e;
+ say "<p><strong>Last update</strong>: $date $subject</p>";
+}}
+
+:>
+<nav>
+<div class="section">
+<h2>Keyboard maps</h2>
+<ul>
+<li><a href="/readline">readline</a>
+<li><a href="/screen">screen</a>
+<li><a href="/less">less</a>
+<li><a href="/vi">vi/vim</a>
+<li><a href="/vimperator">vimperator</a>
+<li><a href="/mutt">mutt</a>
+<li><a href="/nethack">nethack</a>
+<li><a href="/mplayer">mplayer</a>
+</ul>
+</div>
+
+<div class="section">
+<h2>Unicode characters</h2>
+<ul>
+<li><a href="/charset">charsets</a>
+<li><a href="/charset/unicode">unicode allocation</a>
+<li><a href="/unicode">common glyphs</a>
+<li><a href="/digraphs">digraphs</a>
+<li><a href="/writing">alphabet comparison</a>
+<li><a href="/latin">latin variants</a>
+<li><a href="/digits">numerals</a>
+<li><a href="/font">font coverage</a>
+</ul>
+</div>
+
+<div class="section">
+<h2>Other references</h2>
+<ul>
+<li><a href="/browser">browser support</a>
+<li><a href="/countries">country codes</a>
+<li><a href="/perl">perl versions</a>
+<li><a href="/apl">apl symbols</a>
+<li><a href="/termcol">terminal colours</a>
+<li><a href="/sc/lotv">starcraft units</a>
+<li><a href="/emoji">emoticons</a>
+<li><a href="/dieren">dieren (Dutch animals)</a>
+</ul>
+</div>
+</nav>
+