Script on perl for change NS records not write in file

Question

I am trying to use a perl script (I do not know perl in depth) to modify values in DNS zones.

Si hago un print veo que funciona, pero no consigo que escriba el resultado