Select Code to Download

#!/usr/bin/perl -w

...
#   print OUT Data::Dumper->Dump([$dns->ptr]) . "\n";
   close(OUT);
}

[root@steve tmp] 738# perl -cwTM-strict ./ptr.pl
Multidimensional syntax $zone[, $root] not supported at ./ptr.pl line 
+24.
...
syntax error at ./ptr.pl line 24, near "[,"
Global symbol "$root" requires explicit package name at ./ptr.pl line 
+24.
./ptr.pl had compilation errors.