first draft of listusers, a terrible perl script