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