perl -le 'for(@INC){for(glob("$_/DBI.*")){print}}'