--- a/ma	Fri Jul 14 14:32:38 2006 +0000
+++ b/ma	Wed Jul 19 12:09:36 2006 +0000
@@ -152,7 +152,12 @@
 	$Cf->ldap_admin($Cf->ldap_admin . "," . $Cf->ldap_base);
     }
 
-    print help() and exit 0 if $Cf->help;
+    if ($Cf->help) {
+	if (-t STDOUT and -x "/usr/bin/less") { open(X, "|less -F") }
+	else { open(X, ">&STDOUT"); }
+	print X help();
+	exit 0;
+    }
 
     @_ = grep { $_ =~ /^\Q$Module\E/ } qw/account alias shared group/;
     die "Need module.  Try --help\n" if @_ == 0;