my $db  = tie my %hash, 'BerkeleyDB::Btree',
    -Filename => 'data.dbm';
my @keys = keys %hash;
print 0+@keys, "\n";