Help for this page
$input->bind('<Return>', [\&mysub]); #$input is an Entry widget
$input->bind('<Return>', [\&mysub($arg)]);
Tk::Error: Not a CODE reference at c:\perl\site\lib\/tk.pm line 340