{ my $foo = 99; CODE: { print ++$foo, "\n" }; } goto CODE;