[dmathis@ear dmathis]$ cat test.pl
#!/usr/bin/perl -w

use DB_File;

[dmathis@ear dmathis]$ ./test.pl

Can't load '/usr/lib64/perl5/5.8.0/x86_64-linux-thread-multi/auto/DB_File/DB_File.so' for module DB_File: libdb-4.7.so: cannot open shared object file: No such file or directory at /usr/lib64/perl5/5.8.0/x86_64-linux-thread-multi/XSLoader.pm line 83.
 at /usr/lib64/perl5/5.8.0/x86_64-linux-thread-multi/DB_File.pm line 252

[dmathis@ear ircsearch]$ locate DB_File.so | grep -v dmathis; locate libdb-4.7.so | grep -v dmathis
/usr/lib64/perl5/5.8.0/x86_64-linux-thread-multi/auto/DB_File/DB_File.so
/usr/local/BerkeleyDB.4.7/lib/libdb-4.7.so

##</code><code>##

[dmathis@ear ircsearch]$ cat indexer.pl | head -60 | tail -31

# added program path to @INC because it fails to find ./conf.pl if
# started from other directory
{
  # block is for $1 not mantaining its value
  $0 =~ /(.*)(\\|\/)/;
  push @INC, $1 if $1;
}

my $db_package = "";
package AnyDBM_File;
@ISA = qw(DB_File);

# You may try to comment in the next line if you don't have DB_File. Still
# this is not recommended.
#@ISA = qw(DB_File GDBM_File SDBM_File ODBM_File NDBM_File);
foreach my $isa (@ISA) {
  if( eval(require $isa) ) {
    $db_package = $isa;
    last;
  }
}

if( $db_package  ne 'DB_File' ) {
  die "*** The DB_File module was not found on your system.";
}


[dmathis@ear ircsearch]$ ./indexer.pl

Can't locate DB_File in @INC (@INC contains: /usr/lib64/perl5/5.8.0/x86_64-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib64/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.0/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.0 . .) at ./indexer.pl line 47.

[dmathis@ear ircsearch]$ locate DB_File.pm | grep -v dmathis
/usr/lib64/perl5/5.8.0/x86_64-linux-thread-multi/DB_File.pm