dbmopen(%DB, "file", 666) ; 
$DB("moo") = "moo" ;