use CDB_File;

    tie %data, 'CDB_File', $filename or
            die "$0: can't tie to $filename: $!\n";

    if (defined $data{}) {
      # ...
    }