#! /usr/bin/perl

# reads names from sorted authlist. Outputs only one copy of each.
# 
open(INF,"authlist") or die "Can't open code net file: $!\n";
open(OUTF,">authl");

$current = <INF>;
while ($line = <INF>)
  { if ($line ne $current) 
	     { print OUTF "$current";	     
		   $current = $line;		   
	   }
  }   

close(INF);
close(OUTF);

exec 'SetFile -c ALFA -t TEXT authl'; # make outfile alpha readable