use Tk;

my $window = MainWindow->new();
my $label = $window->Label(
    -text => "Hello world !!",
    -width =>22,
    -height=>5,
    -font => ["sans-self", 14]
);

$label->pack();

MainLoop;