use strict;
use warnings;
use Carp;

sub foo {
	my $bar = sub {
		carp "*** inner anon sub called***";
	};
	$bar->();
}

sub generate {
	my ( $name ) = @_ ;

	return sub {
		local *__ANON__ = $name
		  if $name;
		carp "***sub called***";
		foo();
	}
}

sub super {
	my $not_named = generate();
	$not_named->();

	my $named = generate('HulaHoop');
	$named->();
}

super();