Select Code to Download

#!perl.exe -w

...
print "<pre>".Dumper($f)."</pre>";
$f->release;
exit;

$VAR1 = bless( {
     'loca' => bless( {
...
         }, 'Font::TTF::Hhea' )
    }, 'Font::TTF::Font' );