Example:

#!/usr/bin/perl
#===============================================================================
# FILE: dbm_test.pl
# USAGE: ./dbm_test.pl
# DESCRIPTION: To test DBM.
#===============================================================================

use strict;
use warnings;

my %hash;
# To open a dbmfile and associate with hash
dbmopen(%hash, "nagalenoj", '0666') || die "Can't open database bookdb!";

$hash{'one'}="1";
$hash{'two'}="2";
$hash{'three'}="3";

#Retrieving values
print $hash{'three'};

dbmclose %hash;
#===============================================================================