Error:

Software error:

Can't locate DBI.pm in @INC (@INC contains: /home/salmonix/memdrive/FA
+CER/TEST/face-r/index.pl /home/salmonix/perl5/lib/perl5 /usr/lib64/pe
+rl5/site_perl/5.12.2/x86_64-linux-thread-multi /usr/lib64/perl5/site_
+perl/5.12.2 /usr/lib64/perl5/vendor_perl/5.12.2/x86_64-linux-thread-m
+ulti /usr/lib64/perl5/vendor_perl/5.12.2 /usr/lib64/perl5/5.12.2/x86_
+64-linux-thread-multi /usr/lib64/perl5/5.12.2 /usr/lib64/perl5/site_p
+erl /usr/lib64/perl5/vendor_perl .) at /home/salmonix/memdrive/FACER/
+TEST/face-r/index.pl line 18.
BEGIN failed--compilation aborted at /home/salmonix/memdrive/FACER/TES
+T/face-r/index.pl line 18.
For help, please send mail to this site's webmaster, giving this error
+ message and the time and date of the error.
[download]

My BEGIN block:

BEGIN {
    my $lib1=$ENV{SCRIPT_FILENAME} || $ENV{PWD};
    ($lib1)=($lib1=~/(\/home\/\w+\/)/);
    $lib1.="perl5/lib/perl5";
    unshift @INC,$lib1;
#    map { print " $_\n" } @INC;
}
[download]