#!/usr/bin/perl -w

#################################################################
# Change the parameters here
#################################################################
$LOWUID=100;             # don't look at accounts with uid below this
                         # they're special system accounts
$HOME="/home";           # where are the home dirs
$PASS="/etc/passwd";     # where is the password file
$SHADOW="/etc/shadow";   # where is the password shadow file
$MAIL="/var/spool/mail"; # where are the mail spool files
$OLD=30;                 # how many days of no activity before an account is old
$BIGACCOUNT=10000;       # How many KB of disk space before an account is too huge
$MAXDEPTH=0000;          # Max depth of directories to seach for files.