sub x{
  local(*A)=$_[0];
  if(opendir(R,"/usr")){x(*R);
  }
}