# File:	dbm0.pl	
# Title: 	Data Base Management
# Author:	Mihaela Malita  
# Hash tie to a data base

dbmopen(%Names,"dbm0",0644); # permission mode 0644 
# links (ties) %Names to dbm0.pag (stays on the disk)
%Names = ( "Jen" => "Pace",
           "Ethan" => "Sylvain",
		   "Erin" => "Albiero",
		   "Morgan" => "Gaythrope");
print "my names is: ", %Names ,"\n\n";	   
while (($key, $value) = each (%Names)) {
	print "$key has $value \n";
}
dbmclose(%Names);
# all the info is in the dbm0.pag database
exit;