Select Code to Download

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

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

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

for my $user ( @users ) {