Always return XML in perl reject example