anchors/dns/@.do

   1 redo-ifchange root-servers.net.zone
   2 perl -lane 'print $F[$#F] if $F[3] =~ /^AA?/' < root-servers.net.zone |
   3 while read addr ; do
   4     [ "${addr#*:}" = "$addr" ] && echo $addr ||
   5         sipcalc $addr | perl -lane 'print $F[$#F] if /^Compressed address/'
   6 done