#!/usr/bin/perl -w
#
# Read's a list of usernames, one per line, from stdin
# and calls delete_user_mail.pl on each one.
#

while(<STDIN>) {
	chomp;
	system("/private/admin/acct/email/delete_user_mail.pl $_");
}

