2 my $mapfile = sprintf 'map-%s.nld.tsv', $Request || 'numbers';
3 open my $table, '<', $mapfile;
4 my ($title, $description) = split /\t/, readline $table;
10 description => $description,
11 raw => '<style>td,th{text-align:left}</style>',
14 say "<h1>\u$title</h1>";
15 say "<p>$description</p>";
18 while (my $row = readline $table) {
19 my @cols = split /\t/, $row;
21 say '<tbody>' if $. == 3;
24 print /^\d / ? '<th>' : '<td>';
25 s/^.\K / /g; # icon glyph