#!/usr/bin/env perl
use 5.010; use strict; use warnings;

dbmopen(my %h, './database.dbm',0666) or die $!;  # open database file
$h{mykey} = 'my value';                           # save a key/value pair
dbmclose(%h);                                     # close database

dbmopen(my %i, './database.dbm',0666) or die $!;  # reopen database file
say "$_ : $i{$_}" for keys %i;                    # print key/value pairs
dbmclose(%i);