dbmopen( %DB, $datapathname, 0666 ) or die;