$mw->Button(-command => sub { machwas() })->pack;