BEGIN { print \&baz, "\n" } sub baz {} print \&baz;