find / -name 'DBI.pm'

##</code><code>##

perl -MDBI -wle 'print $INC{"DBI.pm"}'