my $t_button = $mw->Button(-text=>'OK', -command=>sub{exit}); #### my $t_button = $nb->Button(-text=>'OK', -command=>sub{exit});