my $mw = MainWindow->new;              

my $pmt3 = $mw->Label(                  
             -width => 10,
#             -height => 3,
             -justify => 'right',
#             -text => 'Version: more text is it longer enough',
             -text => 'Version:',
             -background => 'magenta',
           )->pack;

MainLoop;