Select Code to Download

while ( my $line = <DATA> ) {
    chomp $line;
...
first
    second
first

while ( my $line = <DATA> ) {
    chomp $line;
...

    print $line;
}