Select Code to Download

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

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