tie %HASH, 'DB_File', 'trans.gdbm', O_RDWR, 0666, $DB_HASH or die "Can't open $filename: $!\n";