my $db = tie my %h, "DB_File", undef, O_RDWR|O_CREAT