sub callback { 
    my $coderef = shift; 
    my @args = @_; 
    sub { $coderef->(@args) } 
}

##</code><code>##

    -command => callback($change_mode, 3),