sub sql_write
{
	my ($input, $id, $type) = @_;
	if ($type eq 'SRV')
	{
		printf "SERVER HOST: %s\n", $input->{name};	
		printf "ID DC: %s\n", $id->{DC};
		printf "Cluster ID: %s\n", $id->{Cluster};
		# insert data into Hosts table												
		$dbh->do("INSERT INTO Hosts (Host_Name,Cluster_ID,DC_ID) VALUES ('$input->{name}','$id->{Cluster}','$id->{DC}')");				
			
	}
}