#!/usr/bin/perl -w
use strict;
use DB_File;

my (%HASH, $key, $val);
my $filename = "trans.gdbm";

tie (%HASH, "DB_File", $filename) or die "Can't open $filename: $!\n";

while (($key, $val) = each %HASH) {
    print "$key::$val\n";
}

untie %HASH;