Help for this page
Select Code to Download
Select
or
download this
eval q{ my $foo = 1; sub bar { ++$foo } }; print &bar, &bar, &bar;