use Benchmark (':all');
use Tk;
use Tk::Font;
my $mw = MainWindow->new;
my $f1 = $mw->Font(-family => 'helvetica', -size => 10 );
my $f2 = $mw->Font(-family => 'Helvetica', -size => 10 );
timethese( $_, {
  'klein' => sub { $f1->measure('hallo'); },
  'groß'  => sub { $f2->measure('hallo'); },
}) for 400, 1000;

# Ausgabe:
Benchmark: timing 400 iterations of groß, klein...
      groß: 28 wallclock secs (19.58 usr +  0.33 sys = 19.91 CPU) @ 20.09/s (n=400)
     klein: 14 wallclock secs ( 7.44 usr +  0.21 sys =  7.65 CPU) @ 52.29/s (n=400)
Benchmark: timing 1000 iterations of groß, klein...
      groß: 69 wallclock secs (48.47 usr +  0.65 sys = 49.12 CPU) @ 20.36/s (n=1000)
     klein: 39 wallclock secs (18.70 usr +  0.49 sys = 19.19 CPU) @ 52.11/s (n=1000)