Select Code to Download

while (my $line = <$info>) {
    my $next_line_start = tell($info); # save start position of next l
+ine
...
    # reposition at $next_line_start
    seek($info,$next_line_start,0);
}