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