Messed up the parameter order. Should probably be (I never call it for more than 1 file at a time):

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