sub cp_domains {

	open(my $fh, $domainFile) or die "Coult not open file '$domainFile'";
		while (my $row = <$fh>) {
			chomp $row;
			my @domain = split /:/, $row;
			resolve_domain($domain[0]);
	}
	#close($fh);
}