my $SR = Record->new;
dbmopen( $SR, $DBFile, 0666 ) or die ("Can't create / open $DBFile $!");