perl GDTextUtil