unless ($data->close()) # implied $ftp->response
  {
   carp "Unable to close datastream";
   return undef;
  }