$mw = MainWindow->new(-background => 'blue');
$mw->focus(-force);
$mw->geometry("200x200");
$mw->title("Message");
$mw->Label(-text => 'A Message', -background => 'white', -font => 'big')->pack();
        $mw->Button(-text => "Close", -command =>sub{exit})->pack();
MainLoop;