Category: Win32 stuff
Author/Contact Info cLive ;-) -
Description: Finds and removes those nasty "index.dat" files that IE hide on your Windows machine. For more information, see this article.
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/);