I'm not so sure what the use of your construct is, but you can use labels on single lines:

LOOP:
print "Good old infinite loop\n";
goto LOOP;
[download]

For more on labels (and other stuff) see perlsyn.

-- Hofmator