Button(-text=> "Exit", 
          -command=> sub { Quiting::quiting(); }, )
->pack(-side=> 'bottom', -fill => 'x', -expand => 1 );