# Read passwd files from @ARGV, outputting one record per
# username
my %users;
while (<>) {
  $user = split ":",$_,1;
  next if exists $users{$user};
  print;
  $users{$user} = 1;
}