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