perl -MCarp -e '
my $sub = sub {
        local *__ANON__ = "Some::Sub";
        Carp::cluck "clucks when called";
};
$sub->();
'