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

##</code><code>##

sub foo {
  our $CALL_COUNT;
  call_me_only_once() unless $CALL_COUNT++;
  ...do stuff...
}