$self->{ftp}->put($origin, $target) or
    do
    {
          $msg = $self->{ftp}->message();
          $cod = $self->{ftp}->code();
          print ("$cod: $msg\n");
          return 1;
    };