my $mswinpath;
  my $fontpath = ($mswinpath = $ENV{SYSTEMDIR} || $ENV{WINDIR})
                  ? q[@]. $mswinpath .q[/Fonts/times.ttf]
                  : q[times];
  $fontpath =~ tr:\\:/:s;

  my ($x_ppem, $y_ppem, $ascender, $descender, $width, $height, $max_advance) =
  $overL->QueryFontMetrics
    (
    pointsize => $points,
    text => "$overText",
    $fontpath
    );