Select Code to Download

open (DB, "<$data_file") or die "$data_file: $!";
while (<DB>) {
...
   print "$fields[0]";
}
close DB;