$file_mb->command(-label=>'Exit', -background => 'purple', -activebackground =>'magenta', -command=>sub{$main->destroy});