#!/usr/bin/perl -w
use strict;
use Tk;
my $main = MainWindow->new(-background => "white");
$main->title("test program");
my $mainframe = $main->Frame(-background => "white")->pack();

my $label=$main->Label(-text => "test text", -background => "white")->pack;

print $label->height();

MainLoop()