+print "Writing databases...\n";
+my %sources_small_db;
+tie %sources_small_db, "DB_File", "sources_small.db.new",
+ O_RDWR|O_CREAT, 0666, $DB_BTREE
+ or die "Error creating DB: $!";
+while (my ($k, $v) = each(%sources_small)) {
+ $v =~ s/.$//s;
+ $sources_small_db{$k} = $v;
+}
+untie %sources_small_db;
+