if ($Request and $Request =~ m{\A([^/]+)}) {
my $page = "word/$1.plp";
+ utf8::downgrade($page); # unicode filename breaks contents encoding
if (-e $page) {
Include $page;
exit;
say '<ul>';
for my $row (@_) {
my ($id, $level, $title) = split /:/, $row, 3;
+ $id or die "empty reference"; # assertion to prevent loops
my @type;
push @type, 'parent' if defined $table->{$id};
push @type, 'large' if $level =~ s/c$//;