Select Code to Download

perl -e '
NEXT: {
  local $a.=$x++;
...
  print $a;             # prints only 9
}
'

$x=0;
{
...
  print $a,$b;             
 }
}

$x=0;
{
...
  goto NEXT if $x++<1;
  print $a,$b;             
}