You can use %INC. Its like @INC, only the hash key is the name of the file you want to find. For example:

  use Data::Dumper;
  print $INC{"Data/Dumper.pm"};
[download]

A slight bug in this (IMHO) is that you can't use a module name (i.e. $INC{"Data::Dumper"} won't work). You have to use the filename of the module. Oh, and you have to "use" or "require" the module before %INC includes the module's file. --Dave.