my $hash = tie %hash,  'DB_File', [$filename, $flags, $mode, $DB_HASH];

$hash = tied %hash;