my $n = Font::TTF::Font->open($f) || $f;
$tmp = $n->{name} || $f if ref $n;
$tmp = $tmp->read->find_name(4) || $f if ref $n;
$n->release() if ref $n;