#!perl.exe -w

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

print header();
my $infont = "c:/windows/fonts/D24000D5.TTF";
my $f = Font::TTF::Font->open($infont) || die "could not open font:<BR>$!";
print "<pre>".Dumper($f)."</pre>";
$f->release;
exit;