tie(%db,"DB_File","./filename",O_CREAT|O_RDWR,0666) || die;
の間違いじゃないの？