... warn( "Put failed: @{[$sftp->error]} \n"  ) ...