use Tk;

my $mw = new MainWindow;

foreach my $text (qw/eins zwei drei/) {
    my $b = $mw->Button(-text => $text)->pack();
    $b->bind('<ButtonPress>' => \&printButtonLabel);

}

MainLoop();

sub printButtonLabel {
    # $w enthaelt das aufrufende Widget
    my($w) = @_;

    my $t = $w->cget('-text');
    
    print "Button: $t gedrueckt\n";
}