$mw->Button( qw/-text Exit -command / => [ $mw, q/destroy/ ] );