my %h;
    tie(%h, 'AnyDBM_File', $file, $mode, 0666)
       or die "Couldn't tie DBM file '$file': $!; aborting";