# 5 sub foo { my $x if 0; ++$x; }