Select Code to Download

# open the files
tie(%db_in, 'DB_File', $infile)
...
    $db_out{$k} = $v;
}

# open the files
tie(%db_in, 'DB_File', $infile)
...
    print TEXT_OUT "$key\n$value\n";
}