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

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

while(($animal, $name) = each %pets) {
    print "the name of my $animal is $name\n";
}

dbmclose(%pets);
[download]