sub best_chown($$$) { 
   chown(@_) unless -l $_[2]; 
 }