#!perl -w

use File::Find;
use Win32;
use strict;

find( \&wanted, "J:/ie5cache/Temporary Internet Files" );

sub wanted   {

my $replacement = 'InfoTip="This is the IE cache folder"';
 if ($_ eq 'desktop.ini') {
   my $DOSname = Win32::GetShortPathName( "$File::Find::dir/$_" );
 my $SRT = system( "ATTRIB -h -s -r $DOSname" );
 warn "\nUh-oh, not going to work? -\n$!" if $SRT;
 print( "Found $File::Find::dir/$_",  qq[:\n]);
 open( IEDF, "$File::Find::dir/$_") or die $!;
  my @contents = <IEDF>;
 close( IEDF ) or die $!;
   if (@contents)        {
      for (@contents)       {
        s@UICLSID\=.+@$replacement\n@i;
      }
      open ( IEDF, ">$File::Find::dir/$_") or die $!;
      print IEDF '',@contents,"\nreplacement made.\n";
      print '',@contents;
      close( IEDF ) or die $!;
   }
 }
}