$main = MainWindow->new;
$main->Message(-text => 'xyzzy')->pack;
$main->Button(-text => 'foo')->pack;
MainLoop;