$mw->Button(-command => \&machwas)->pack;