$mw->Button(
        -text => "Submit",
        #-command => sub {exit} # no good, will exit whole program
         -command => sub{ $mw->destroy }   # good 
)->pack();