{
  my $foo_has_been_called;
  
  sub foo {
    if (not $foo_has_been_called) {
      call_me_only_once();
      $foo_has_been_called = 1;
    }
  }
}