$a=0;
LOOP:
   print $a++;
   retn;

while ($a < 20) {
    goto LOOP;
    print "----\n";
}