use Tk;
use Tk::Font;
my $w=MainWindow->new;
my $f=$w->Font;
$f->measure("hallo") for 0..399