Select Code to Download

sub check_passwd {
    my ($uname,$guess) = @_;
...
        return (grep { $_ eq $uname } split ( / /,$members )) ;
    }
}

sub check_passwd_nt {
    my ($uname,$guess) = @_;
...
}
&check_passwd_nt($user_text,$passwd_text);
&check_group_nt($user_text,"supercam");