Write:

dbmopen(%company, "/home/test/company", 0777);
$company{'name'}="Muratiore";
dbmclose(%company);

Read:

dbmopen(%company, "/home/test/company", 0644);
print "Name:".$company{'name'};
dbmclose(%company);