sub same_file_p {
  my @stat1 = stat shift;
  my @stat2 = stat shift;
  return "@stat1[0,1]" eq "@stat2[0,1]";
}