LINE: flock(FILE, 2) or goto LINE;

##</code><code>##

$i = 5;
LINE: print "got here\n"; --$i and goto LINE;