[root@steve tmp] 738# perl -cwTM-strict ./ptr.pl
Multidimensional syntax $zone[, $root] not supported at ./ptr.pl line 24.
Global symbol "@zone" requires explicit package name 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.