$FILENAME = "/blah/blah/test"

dbmopen %HASH, $FILENAME, 0666
  or die;

foreach $key (sort keys %HASH) {
  print $key, ' = ', $HASH{$key}, "\n";
}

dbmclose %HASH;