--- a/bin/zone-mk	Tue May 24 09:40:39 2011 +0200
+++ b/bin/zone-mk	Tue May 24 11:05:33 2011 +0200
@@ -27,7 +27,10 @@
         "m|man"   => sub {
             pod2usage(
                 -verbose   => 2,
-                -noperldoc => system("perldoc -V &>/dev/null"),
+                # "system('perldoc -V &>/dev/null')" appears shorter, but may not
+                # do what you expect ( it still returns 0 on debian squeeze with
+                # dash as system shell even if cannot find the command in $PATH)
+                -noperldoc => system('perldoc -V >/dev/null 2>&1'),
                 -exit      => 0
             );
         },