use Config;
printf "<tr><th>%s</th><td>%s</td></tr>\n", @$_ for (
["System" => qx(uname -snrvm)],
- ["Server API" => "CGI/FastCGI - ".$PLP::interface], #TODO
+ ["Server API" => $PLP::interface ? $PLP::interface : "?"],
["Perl" => join ".", map ord, split //, $^V],
["Build Date" => $Config{cf_time}],
["Debug Build" => $^P ? "yes" : "no"],