$mw->bind("<Key-Combo>", [ \&get_input, Ev('K') ]);
# ...snip...

sub get_input()
{
 my $input = <STDIN>;
 # etc..
}