$mw->Button(-text => 'Exit', -command => sub { exit })
  ->pack(-side => 'left');