Select Code to Download

sub foo {
  my ($self, $caller, @targets) = @_;
...

  ...
}

  sub handle_event {
    my ($kernel, $heap, $parameter) = @_[KERNEL, HEAP, ARG0];
    ...;
  }