LABEL:
goto LABEL;
my $expr;
goto $expr
