+<:
+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+) (?= (?:/\w+)* :\h )}{
+ showlink($1, -e "$1.plp" && "/$1");
+ }ex;
+ say "<p><strong>Last update</strong>: $date $subject</p>";
+}}