Select Code to Download

    while (my $line = <DATA>) { ... }
    while (defined (my $line = <DATA>)) { ... }

    while (<DATA>) { ... }

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