use strict;
use Inline 'C';

$\ = "\n";

my $x;
BEGIN {
	my $n = 100;
	$x = eval 'sub {' . ('%Foo::;' x $n) . '}';
}

print refcount(*Foo::); # prints $n + 2

__END__
__C__
int refcount(SV* x) {
	return SvREFCNT(x);
}