my $exit=$mw->Button(-text=>'Exit',-underline=>'3',-command=>[$mw=>'destroy']);