$input->bind('<Return>', [\&mysub]); #$input is an Entry widget

##</code><code>##

$input->bind('<Return>', [\&mysub($arg)]);
##</code><code>##


Tk::Error: Not a CODE reference at c:\perl\site\lib\/tk.pm line 340