Or why not change the name of server A and make it's old name a DNS cononical for server B

However, you are correct as this does not look perl related.