$ perl -e'
   use Carp qw( croak );
   BEGIN { *foo = sub { croak "bar" }; }
   foo();
'
bar at -e line 3.
        main::__ANON__() called at -e line 4