Select Code to Download

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

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

use warnings;
use strict;
...
ken
jon
jon