sub matching_paths {
  my($path1, $path2) = @_;
  my(@stat1) = stat $path1;
  my(@stat2) = stat $path2;
  return $stat1[0] == $stat2[0] && $stat1[1] == $stat2[1];
}