Search for Perl module - INC

In ~/.bashrc (~/.bash_profile on Mac):

search () { (
    # Searches for perl module. Usage: "search my::modul"
    for DIR in $(perl -Ilib -It -e 'pop @INC if $INC[-1] eq q{.}; print join " ", @INC');
    do find $DIR -iwholename *${@//:://}*.pm; done
) };