Hi [madtoperl], Try this,

use File::Find;
foreach my $dir (@INC){
  find (sub {
    $searchstr= 'C:/Perl/lib/Time/Local.pm';
    if( $searchstr =~ "\Q$File::Find::name\E" ){
      print " Module $File::Find::name is found\n" ;
     $localflag=1;
    }
  },$dir);
}
__END__
 Module C:/Perl/lib is found
 Module C:/Perl/lib/Time is found
 Module C:/Perl/lib/Time/Local.pm is found

Or Change if statement as:

if( $searchstr eq "$File::Find::name" )

Output is:(Alone)
-----------------
 Module C:/Perl/lib/Time/Local.pm is found

Try running that with use warnings; and read what it it tells you.

Update: Grr! I think I need glasses - I can't tell the difference between = and ~ this morning.

/J\

Instead of looping @INC it is much easier to hand that to 'find'. Adjusting also for performance (no need to let find continue when you're done) and for certain quality measures generally accepted at this site, I would end up with something like this:

use strict;
use warnings;
use File::Find;
no warnings File::Find; # see documentation on File::Find
my $searchstr= 'C:/Perl/lib/Time/Local.pm';
my $found = 0;
find sub {
    $found = ( $File::Find::name =~ /$searchstr/ )
       and goto DONE01; # quit whole @INC search when found
}, @INC;
DONE01:
# ...

Update: The 'goto' is only necessary using a module - so there is a strong temptation to use a hand-rolled class rather than the non-object-oriented FILE::Find, perhaps not just to write a 'quit' method, but more to gain better control of the functionality, given that such a class can be done in half a page e.g.

use strict;
use warnings;
package MyFind;
our $name;
sub new {
    my $self = shift;
    $self -> { SUBREF } = shift; # ref to sub to be
                                 # called per file found
    my @dirs = @_;
    $self -> { DIRS } = \@dirs;
    $self -> { QUIT } = 0;
}
sub find {
    my $self = shift;
    my $aref = $self -> { DIRS };
    for my $dir ( @$aref ) {
        traverse( $self, $dir );
        last if $self -> { QUIT };
    }
}
sub quit {
    my $self = shift;
    $self -> { QUIT } = 1;
}
sub traverse {
    my $self = shift;
    my $dir = shift;
    opendir my ($dh), $dir;
    for my $file ( grep !/^\./, readdir $dh ) {
        $name = "$dir/$file";
        last if ( $self -> { QUIT } );
        traverse( $self, $name ) if ( -d $name );
        $self -> { QUIT } or &{$self -> { SUBREF }};
    }
    closedir $dh;
}
1;