Select Code to Download

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

$top->bind( 'Tk::Entry', '<KeyRelease>', [\&subroutine, Ev('K')] );