{
  my %seen;
  sub have_seen_file {
    my $file = shift;
    my ($dev, $ino) = stat($file);
    $seen{$dev}{$ino}++;
  }
  sub reset_seen_files { %seen = () }
}