dbmopen(%pets, "C:/temp/petFile", 0644) || die "Cannot open petFile";
$pets{cat} = "Mao";
$pets{dog} = "Spot";
dbmclose(%pets);