Select Code to Download

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

dbmopen(%pets, "C:/temp/petFile", 0644) || die "Cannot open petFile";

...
}

dbmclose(%pets);