Select Code to Download

...
my $previous_line;
while (my $current_line = <DATA>) {
...
  }
  $previous_line = $current_line;
}

...
my $seen_here_is_the_data;
while (my $line = <DATA>) {
...
    print $line;
  }
}