#! /usr/bin/perl
#Call the scripts with <scriptname> passwd.*

while (<>) {
       ($login, $passwd, $uid, $gid,
        $gcos, $home, $shell) = split(/:/);
       $USERS{$login} = $gcos;
}

$nf="endo";
open (NEWFILE, ">$nf");
foreach $login (sort keys %USERS) {
       $gcos = $USERS{$login};
       print NEWFILE "$login, $gcos\n";
   }