my $fenster = MainWindow->new();
my $meldung = $fenster->Label(-text =>'Start Script', ... )->pack()
Bei Label werden noch Breite Höhe als Parameter üebrgeben
MainLoop();