sub check_passwd_nt {
    my ($uname,$guess) = @_;
    my $pw = getpw($uname);
    print Dumper($pw);
}
sub check_group_nt {
    my ($uname,$group) = @_;
    my $gr = getgr($uname);
    print Dumper($gr);
}
&check_passwd_nt($user_text,$passwd_text);
&check_group_nt($user_text,"supercam");