#!/usr/local/bin/perl
system ("date");
print("BEGIN - finding cs accounts \n");
open(PW,"ypcat passwd|");
while (<PW>) {
	if (/^cs[4-9][0-9]+:/) {
                split (/:/);
                print ("$.  -->   $_[0] $_[4] \n " ); 
                $count++;
	}
}
print ("END - total: $count  \n");