BEGIN {
    require Tk;
    import Tk;
}
$top = tkinit;
$but = Button::new($top, "-text" => "Press me");
$but->configure("-method" => "flash",
                "-slave"  => $but);
tkbind($but, "<2>", "readout");
tkpack $but;
tkmainloop;

sub readout {
    print "This widget is $Tk::EvW\n";
    print "button says ", ($but->configure("-text"))[4], "\n";
}