Select Code to Download

while (<>) {
  next, if 2 .. 5;
  print;
}

my $index = 0;
my $skip = 0;
...
  }
  print;
}