Help for this page
sub foo { my $var if 0; $var++; print "var is now $var\n"; }
sub foo { my $var ; $var++; print "var is now $var\n"; }