open(DATA, '<+:mmap', 'game.dbm')
my $db = DBM::Deep->new( { fh => \*DATA } );