use strict;
use warnings;

use Benchmark qw(:all);
use Tk;
use Tk::Font;

my $w=MainWindow->new;
my $f=$w->Font;

sub time_font_measure {    
    $f->measure("hallo");
}

timethis(   10, \&time_font_measure);
timethis(  100, \&time_font_measure);
timethis(  400, \&time_font_measure);
timethis( 1000, \&time_font_measure);
timethis(10000, \&time_font_measure);