Select Code to Download

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

    my $button2 = $mw->Button(-text => 'Quit', 
                           -command => \&my_sub);
...
    sub my_sub {
      print "Someone clicked me!\n";
    }