#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

my $c=0;
my @files = ();

# find the files
print "Processing\n";
find(\&wanted, "/");

# offer for delete:
for (@files) {
  print "\nDelete $_?(y/n)\n";
  my $r = <STDIN>;
  if ($r =~ /y/i) {
    unlink $_;
    print "FILE DELETED!\n";
  }
}

sub wanted {
  print '.' if !$c; $c++;$c%=1000;
  push @files, $File::Find::name if (/index.dat/);
}