{
    foreach my $host ($DB->get_all)
    {
	my $lc_key = lc($host->key);

	next if ( $lc_key eq $host->key );

	my $rec = $DB->get($lc_key);

	if ($rec)
	{
	    warn "HostsDB: " . $host->key . 
		    " NOT migrated as $lc_key exists\n";
	    next;
	}

	$rec = $DB->new_record($lc_key);
	$rec->merge_props($host->props);

	$host->delete;
    }
}