my $script = ['call_handler', $param];  # see callbacks.pod

$widget->bind($widget, '<Key-Home>', $script); # Standard

my $callback = Tk::Callback->new($script);  # Create manually
$callback->Call($widget);             # Invoke

sub call_handler {
  my ($widget, $param) = @_;
}