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