my %db;
use SDBM_File;
my $db = "name.dbmx";


tie %db, "SDBM_File", "$db", O_CREAT | O_RDWR, 0644, or die "Cannot open file 'db': $!\n";