#!./perl
BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
use Tk;

$top = tkinit;
$foo = "one";
$b1 = Button::new($top, "-text" => $foo, "-slave" => $foo);

$foo = "two";
$b2 = Button::new($top, "-text" => $foo, "-slave" => $foo);

foreach ($b1, $b2) {
    $_->configure("-method" => \&iam);
}
tkpack $b1, $b2;
tkmainloop;

sub iam {
    my($slave) = @_;
    print "I am button $slave\n";
}