eval( 'use POSIX qw( lchown )' );
if( defined &lchown ) {
  *best_chown = sub ($$$) { lchown( @_ ) };
} else {
  *best_chown = sub ($$$) { chown( @_ ) };
}