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

die "usage: dview <file.db> <outputfile>\n" unless (@ARGV == 2);
my($db_file, $out_file) = @ARGV;

die "Error: $!\n" unless -e $db_file;
die "Output file exists\n" if -e $out_file;

open OUT_FILE, ">$out_file" or die "Couldn't open $out_file: $!\n";
dbmopen my %DB, "$db_file", 0666 or die "Couldn't open DB: $!\n";
for (sort keys %DB) {
    print OUT_FILE "key: \"$_\" = \"$DB{$_}\" END\n";
}
dbmclose %DB or warn "Couldn't close $db_file: $!\n";
close OUT_FILE or warn "Couldn't close $out_file: $!\n";