unless ($sftp->put(...)) {
  if ($r == SSX_FX2_...) {
     # do whatever
  }
}