It's not perlTK solution, but there is a way to find the width of rendered text. Check out this node Re: Length of rendered TTF string in pixels? .

HTH