use strict;
use DB_File;

my $Usage = "Usage: $0 db_file_name\n";
die $Usage unless ( @ARGV == 1 and -f $ARGV[0] );

my %file_hash;
tie ( %file_hash, 'DB_File', $ARGV[0] )
    or die "DB_File: $ARGV[0]: $!";

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