--- a/bin/ius-dav-htuseradd	Fri Jul 15 14:03:55 2011 +0200
+++ b/bin/ius-dav-htuseradd	Fri Jul 15 14:10:40 2011 +0200
@@ -25,13 +25,13 @@
 use Getopt::Long;
 use Pod::Usage;
 
-my ($user, $expiry, $pass);
+my ( $user, $expiry, $pass );
 
 GetOptions(
-    'u|user=s' => \$user,
+    'u|user=s'   => \$user,
     'e|expiry=i' => \$expiry,
-    'h|help' => sub { usage(-exit => 0, -verbose => 1) },
-    'm|man'  => sub {
+    'h|help'     => sub { usage( -exit => 0, -verbose => 1 ) },
+    'm|man'      => sub {
         usage(
             -exit => 0,
 
@@ -42,7 +42,9 @@
             -verbose   => 2
         );
     },
-) and defined $user or usage;
+  )
+  and defined $user
+  or usage;
 
 $pass = useradd readconfig, $user, mkpasswd, $expiry;
 print "[$pass]\n";