$a=0;
LOOP:
   print $a++;
   goto CONT;
while ($a < 20) {
    goto LOOP;
CONT: print "\n";
}