no strict 'refs';
  my $pkg = caller;
  *{ $pkg . "::foo" } = sub { ... }; # the final foo