Select Code to Download

yyn4532:Jim Brown(from $gecos):server1:server2:server3...
zzx9911:Jake Black(from LDAP):BNOC (from LDAP):Gary(from LDAP):IN(from
+ LDAP):Manager=Trudy Farret(from LDAP):server 1:server2:server5...

#! /usr/bin/perl
    #@files=('passwd.server1','passwd.server2','passwd.server3','passw
+d.server4','passwd.server5','passwd.server6','passwd.server7','passwd
+.server8','passwd.server9');
...
        );
} ## End of searchPeople ##

#!/usr/bin/perl -w
use strict;
...
    print NEWFILE join(':',@{$USERS{$login}})."\n";
}
close(NEWFILE);