open USERS, '<', $userlist or die "Cannot open $userlist:$!\n";