Select Code to Download

sub file_mode {
  my ($file) = @_;
...
          $dummy, $dummy, $dummy, $dummy) = stat($file);
  return $mode;
}

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