#!/usr/bin/perl -w
use CGI;
use strict;
my $message = $ARGV[0]
|| 'A wizard’s job is to vex chumps quietly in fog. 5! = 120 (3-46,789)?';
open my $list, '-|', 'fc-list : family | sort -u';
print <<HTML;
<html>
<head>
<meta http-equiv="Content-type" content="text/html; charset=UTF-8">
<title>Font List</title>
<style type="text/css">
table {
margin-bottom: 4ex;
border-spacing: 0;
border-collapse: collapse;
}
td {
border-top: 1px solid gray;