#!/usr/bin/perl

use DB_File;
$dbmfile = 'objects.dbm';
tie %hash, DB_File, $dbmfile; # open database, to be accessed
# prints all elements of hash
 while (($key, $val) = each %hash){
       print $key, ' = ', $val, "\n";
 }

untie %hash; # close database