# open the files
tie(%db_in, 'DB_File', $infile)
    or die "Can't tie $infile: $!";
open TEXT_OUT, ">$outfile"
    or die "Can't open $outfile: $!";

while (my($key, $value) = each %db_in) {
    print TEXT_OUT "$key\n$value\n";
}