$ perl5.12.0 -E'while (1) { goto FOO; } FOO: say "done"'
done