Help for this page
my (%withlex, %withglobal); ... print "Using global num of subs is " . (keys %withglobal) . "\n";