Help for this page
#!/usr/bin/perl foo(); ... sub bar { print ++$x } print ++$x; }
foo(); bar(); ... } } }