BEGIN {
    require Tk;
    import 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 {
    local($slave) = @_;
    print "I am button $slave\n";
}