Select Code to Download

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