$top->bind( 'Tk::Entry', '<Enter>', \&your_subroutine );