Select Code to Download

foreach $server (@servers) {
  chomp $server;
...
  }
  close TMP;
}

## iterate through record
foreach(@DATA) {
...
    last;
  }
}