$status = LWP::Simple->getstore ($harvest_url, $upload_loc);
    if (is_error ($status)) {
      $emsg  = "***Upload failed on ->$harvest_url<-: ";
      $emsg .= "Code ->$status<- ";
      $emsg .= "Msg ->" . status_message ($status) . "<-";
      Common::logmsg ($lsid, "$emsg");
      die ("$lsid $emsg");
    }
    else {
      Common::logmsg ($lsid, "on ->$args<- successful");
    }