Simplified from the TrueType font gallery node.

#!perl.exe -w

use strict;
use Font::TTF::Font;
use CGI qw(:all);

print header();
    my $f = 'arial.ttf';
    my $fontname = Font::TTF::Font->open($f) || $f;
        $fontname = $fontname->{name} || $f if ref $fontname;
        $fontname = $fontname->read->find_name(4) || $f if ref $fontna
+me;
    print $fontname;
exit;
[download]

--
paul