Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}
dbmclose %DB or warn "Couldn't close $db_file: $!\n";
close OUT_FILE or warn "Couldn't close $out_file: $!\n";

#!/usr/bin/perl -w
use strict;
...
    $DB{$1} = $2;
}
dbmclose %DB or warn "Couldn't close $out_db: $!\n";

#!/usr/bin/perl -w
use strict;
...
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));