Perl 回调函数例子

$label->bind("<Any-KeyPress>" => [&move, Ev('k')]);
sub move {
    my $key = shift;
    if ($key eq 'k') {
       move_left();
    } elsif ($key eq 'l') {
       move_right();
    }
}