in reply to Problems with cruft-finding script

my %seen; sub recursiveFollow { my $file = shift; return if $seen {$file} ++; ... }

Abigail