--- a/account.pm	Wed Aug 02 12:03:45 2006 +0000
+++ b/account.pm	Wed Aug 09 07:57:14 2006 +0000
@@ -370,6 +370,8 @@
     );
     die $r->error if $r->code;
 
+    #if (-t STDOUT) { open(LESS, "|less -F -X") and select LESS; }
+
 
     while (my $e = $r->shift_entry) {
 	my $uid = $e->get_value("uid");