Select Code to Download

open(FH, "$datfile") || die "Can't open $datfile!";

...
    chomp($line);
    push(@list, $line);
}