my $button1 = $mw->Button(-text => 'Quit', 
                             -command => \&exit);