Select Code to Download

LABEL1: [field1]
LABEL2: [field2]
LABEL3: [field3]

foreach $File (@File) {
    $File =~ s/\n//;
...
  }
print "$File\n";
}