# put: return ok = '' if 'no permission' error (ie, don't retry)

sub put {
  $_[0]->SUPER::put(@_[1..$#_]) # rtns ok/!ok;$_[0] undef'd if abort
    or check($_[0])            # $_[0] can be undef'd here to hangup
}