--- a/sbin/zone-mk	Thu Jun 30 15:19:33 2011 +0200
+++ b/sbin/zone-mk	Thu Jun 30 16:24:32 2011 +0200
@@ -26,10 +26,11 @@
         "h|help"  => sub { pod2usage(-verbose => 1, -exit => 0) },
         "m|man"   => sub {
             pod2usage(
-                -verbose   => 2,
-                # "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)
+                -verbose => 2,
+
+               # "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
             );
@@ -48,7 +49,7 @@
     # in die entsprechenden verzeichnisse.
     for my $utf8zone (@ARGV) {
 
-        my $zone     = idn_to_ascii($utf8zone, $CHARSET);
+        my $zone       = idn_to_ascii($utf8zone, $CHARSET);
         my $zonefile   = "$cf{master_dir}/$zone/$zone";
         my $configfile = "$cf{zone_conf_dir}/$zone";
         my $now        = time;
@@ -68,8 +69,8 @@
         say "zone $utf8zone ($zone) for $customer.";
 
         my %vars = (
-            zone     => $zone,
-            utf8zone => $utf8zone,
+            zone       => $zone,
+            utf8zone   => $utf8zone,
             now        => $now,
             zonefile   => abs_path($zonefile),
             customer   => $customer,