use DB_File;

   $error=0;
   tie %h, "NDBM_File", $dbname, O_RDWR, 0640, $DB_HASH or $error=1;
   if ($error==1) { print "error opening database: $!\n"; exit(0); }

##</code><code>##

Can't locate object method "TIEHASH" via package "NDBM_File" at ...