BEGIN {
  foo();
}

sub foo {
  BEGIN { sub foo }
  print "in foo()";
}

__output__

Undefined subroutine &main::foo called at 249927.pl line 2.
BEGIN failed--compilation aborted at 249927.pl line 3.