sub foo {
  call_me_only_once();
  no warnings 'redefine';
  *foo = sub { ... };  # the final foo
  goto &foo;
}