perl -le 'for $p (@INC) {
 print $p; opendir(P,$p);
 print join("\n",grep /DBI/,readdir(P))}'