#!/usr/bin/env perl 
use strict;
use warnings;

my ($path) = grep { -f "$_/DBI.pm" } @INC;
print $path;