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