use Carp 'croak';

sub {
    local *__ANON__ = 'my_anonymous_sub';
    croak("Whee!");
}->();
__END__
Whee! at anon.pl line 9
        main::my_anonymous_sub() called at anon.pl line 10