Select Code to Download

LINE: {
    # ...
    redo LINE   if # ...
    # ...
}

  my $done = 0;
# ...
  sub {
...
      }
      return( $key, \@data )   if  $allow;
      return;

while(
    conditional
) {
    code
}

for(
    init;
    condition;
...
) {
    code;
}

init;
while(
    contition
...
} continue {
    cont;
}

  my $done= 0;
  # ...
      my( @data, $row, $key );
...
      }
      return( $key, \@data );
  }