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