#!/usr/bin/perl

use strict;
use warnings;

my %hash;
dbmopen( %hash, 'test', 0644 );

while ( my ($key,$value) = each %hash ) {
    print sprintf "%s - %s\n", $key, $value;
}

$hash{$$} = time;

dbmclose( %hash );