--- a/bin/ius-dav-htuserexpiry	Fri Jul 22 09:38:29 2011 +0200
+++ b/bin/ius-dav-htuserexpiry	Fri Sep 06 13:56:57 2013 +0200
@@ -20,15 +20,15 @@
 use strict;
 use warnings;
 
-use Ius::Dav::Htpasswd qw(readconfig userexpiry usage);
+use Ius::Dav::Htpasswd;
 
 use Getopt::Long;
 use Pod::Usage;
 
 GetOptions(
-    'h|help' => sub { usage( -exit => 0, -verbose => 1 ) },
+    'h|help' => sub { Ius::Dav::Htpasswd::usage( -exit => 0, -verbose => 1 ) },
     'm|man'  => sub {
-        usage(
+        Ius::Dav::Htpasswd::usage(
             -exit => 0,
 
             # "system('perldoc -V &>/dev/null')" appears shorter, but may not
@@ -38,6 +38,8 @@
             -verbose   => 2
         );
     },
-) or usage;
+) or Ius::Dav::Htpasswd::usage;
 
-exit userexpiry readconfig;
+my $h = Ius::Dav::Htpasswd->new;
+$h->readconfig or die "Can't readconfig";
+exit $h->userexpiry;