Select Code to Download

my ($current_line, $prev_line);
while($current_line=<I>){
...
}
close(I);
# value in $prev_line still good.