Select Code to Download

# It would probably be better have
# while (my $line = <CG>)
# but that would mean rethinking your whole code
...
   last unless $position <= $end;
   print OUT $line if $position > $start;
}