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

##</code><code>##

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

    sub my_sub {
      print "Someone clicked me!\n";
    }