#!/usr/bin/perl


$prefix = "/home/cs-students/";
opendir(STUDENTS,"$prefix") || die "Couldn't open dir: $!";
@ALL_FILES = readdir(STUDENTS);
closedir(STUDENTS);

foreach $file (@ALL_FILES){
    open(F,"finger $file | ");
    while (<F>){
        if (/Name: (.+)$/){
	    $userids{$file} = $1;
        }
    }
    close(F);
}

foreach $key (sort keys %userids){
	print "$key:$userids{$key}\n";
}