BEGIN { push (@INC, "D:\\Perl\\site\\lib"); }
use DBI;

##</code><code>##

use lib "D:\\Perl\\site\\lib";
use DBI;