in reply to How to find path for current module?

You can use the %INC hash (note it will be a relative path if it's in the current directory): 
print $INC{ __FILE__ };

use Data::Dumper;
print Dumper \%INC;

[download]

In Section Seekers of Perl Wisdom