eval q{ my $foo = 1; sub bar { ++$foo } };
print &bar, &bar, &bar;