open(IN, $ARGV[1]) or die "Can't open groupinfo: $!";
while (<IN>) {
  chomp;
  my ($name, $desc) = split /:/, $_, 2;
  next unless $name eq $ARGV[0];

  print $desc;
}
close(IN);