use strict;
use MLDBM qw(DB_File);
my $db = 'data_db';
my %records;
my $dbh = tie %records, 'MLDBM', $db or die $!;
my $junk = 1;