3 my ($name) = $Request ? $Request =~ m{\A(\w+)} : 'finder';
4 if (-e (my $page = "word/$name.plp")) {
5 utf8::downgrade($page); # unicode filename breaks contents encoding
8 elsif (-e "word/$name.js") {
11 (map {qq(<script src="/word/$_"></script>)}
12 'put.min.js', 'quiz.js', "$name.js",
14 (map {qq(<link rel="stylesheet" type="text/css" href="/$_">)}
15 grep {-e} "word/$name.css"
20 say '<section id="quiz"></section>';
21 say "<script>new Word\u$name()</script>";
26 die ["Page <q>$name</q> not found"];