$widget-bind( Tk::Button, 
        "<Button-1>", sub{&handle_event});