my ($x_ppem, $y_ppem, $ascender, $descender, $width, $height, $max_advance) = $overL->QueryFontMetrics ( pointsize => $points, text => "$overText", '@C:/WINDOWS/Fonts/times.ttf', # Omit for default font );