What version of perl did you use?
This code does not generate any errors, but does not generate output.
In reply to Re^2: Bind zone file search by ranceh in thread Bind zone file search by ranceh