#!/usr/bin/perl -w
use strict;
use DB_File;
use Data::Dumper;
dbmopen my %NEWS_DB, "news.db", 0666 or die "Couldn't open news.db: $!\n";
my $news_db = \%NEWS_DB;
my $data = Dumper $news_db;
dbmopen my %NEW_DB, "new.db", 0666 or die "Couldn't open new.db: $!\n"; 
%NEW_DB = eval(Dumper($data));