Select Code to Download

while ($line = <>) {
  # redo comes HERE
  # do something
...
    redo;
  }
}

while ($line = <>) {
  # ...
  my $pos = tell ARGV;
...
  seek ARGV, $pos, 0;
  # ...
}