su -
su - YOUR_APACHE_USER_NAME -c "perl -le 'print for @INC'"

##</code><code>##

...
use lib qw( DIRECTORY_PATH );
use DBI;
use CGI qw(:standard);
...