Wx::Event::EVT_KEY_DOWN($ed , sub {
    my ($ed, $event) = @_;
...
});