sub file_mode {
  -f shift or return -1;
  return (stat(_))[2];
}