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

##</code><code>##

data.dir
data.pag