Select Code to Download

open(MYFILE, ">$upload_file") || die "Couldn't open upload file: $!\n"
+;
  print MYFILE while (<$fname>);
close(MYFILE) || die "Couldn't upload file: $!\n";