#!/usr/bin/perl
use lib '/path/to/my/dir';
use DBI;
use Data::Dumper;
print Dumper( \@INC, \%INC );