chomp( my @users = map { s/$MAIL_ROOT//; $_ } `find $MAIL_ROOT -type d -maxdepth 1` );