#!/usr/bin/perl
# GDBM example, J Prilusky

use GDBM_File ;
  tie %hash, 'GDBM_File', $filename, GDBM_WRCREAT, 0640;
  # Use the %hash array.
  untie %hash ;