use GD::Text;

my($gd_text) = GD::Text-> new() or die GD::Text::error();

if ($gd_text-> can_do_ttf()) {

    print "Well, GD::Text says I can handle TTFs!  Isn't that a hoot!\n";
}