#!/usr/local/bin/perl
use warnings;
use strict;
use Carp 'confess';

sub foo {
    sub {
        local *__ANON__ = 'local_subref';
        confess "Ovid";
    };
}

eval foo()->();