open(USERS, "< $userlist") or die "cannot open file: $!\n";

##</code><code>##

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

##</code><code>##

for (my $i = 0; $i < scalar(@users); $i++) {

##</code><code>##

for my $user ( @users ) {